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ABSTRACT 

A  two-dimensional,  geometrically  and  materially  nonlinear  shell  theory  applicable  to 
arbitrary  geometries  described  by  orthogonal  curvilinear  coordinates  and  encompassing 
large  displacements,  moderate  rotations  for  large  strain  situations  has  been  developed. 
Additionally,  the  theory  includes  Jacobian  transformation  matrices,  based  on  displacement 
parameters,  for  the  Cauchy-2nd  Piola-Kirchhoff  stress-state  and  the  Cauchy(Almansi)- 
Green  strain-state  transformations,  and  a  layered  material  approach  is  included  for  the 
elasto-plastic  analysis  to  allow  for  variation  of  plasticity  through-the-thickness.  Doubly 
curved  20,  28,  and  36  degree-of-freedom  finite  elements  are  defined  based  on  specializa¬ 
tion  of  the  theory  to  spherical  coordinates.  The  computer  program  includes  algorithms  for 
linear  and  nonlinear  problems.  Post  collapse  nonlinear  solutions  are  found  through  a  dis¬ 
placement-control  incrementation  scheme.  The  provides  solutions  to  classical  von  Kar- 
man  flat  plate  and  Donnell  spherical  shell  equations,  intermediate  von  Karman  flat  plate 
and  Donnell  spherical  shell  equations,  and  large  displacement  and  moderate  rotational  for¬ 
mulation. 

For  deep  shells  that  exhibited  large  rotations  (\|//  >  15°)  and  displacements  {u,w  >  5h,  h 
=  shell  thickness)  over  15-20%  of  the  shell’s  surface,  the  Lagrangian  constitutive  relations 
(including  the  Jacobian  transformation  matrices  for  the  stress-  and  strain- states)  should  be 
included  to  accurately  reflect  the  variation  of  the  material  coordinate  system  with  respect 
to  the  structural  axis  system.  This  variation  usually  occurs  a  decrease  in  the  shell’s  stiff¬ 
ness,  thereby  reducing  the  buckling  or  snapping  load  by  10-25%  in  magnitude  with  little 
or  no  increase  in  displacement.  Convergence  tolerances  remained  the  same  as  for  the  gen¬ 
eral,  nonlinear,  Cauchy  elastic  solutions.  The  displacement  increments,  and  therefore  the 
number  of  iterations,  were  chosen  to  be  1/lOth  -  l/15th  the  total  dispalcement  desired  for 
the  partieular  problem. 

For  those  plates  and  shells  that  exhibited  large  strains  (Ej  >  2.25%)  along  with  large 

rotations  >  15°)  and  displacements  {u,w  >5h,h  =  shell  thickness)  over  15-18%  of  the 
outers  surface,  the  elasto-plastic  constitutive  relations  need  to  be  included  to  accurately 
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reflect  the  reduction  in  shell  stiffness  due  to  the  presence  of  plasticity  occuring  along  the 
outer  surface(s).  For  composite  materials,  and  additional  indicator  is  the  ratio  of  ((7727/ 
Ohy)  yield  stresses  which  indicate  the  influence  of  the  material’s  shear  stiffness.  Both  Gr/ 
PEEK  and  Gr/Ep  exhibit  signicant  dependence  upon  the  shear  stiffness  and  are  signifi¬ 
cantly  influenced  (severe  reduction  of  shell  stiffness)  by  the  presence  of  small  amounts  of 
plasticity.  Peak  buckling  or  snapping  loads  were  reduced  by  18-45%  and  corresponding 
displacements  increased  by  12-27%  (compared  to  the  elastic  solutions)  when  the  elasto- 
plastic  material  model  was  included  in  the  analysis.  To  maintain  similar  convergence  tol¬ 
erances  with  the  elastic  solutions,  increments  of  displacement  were  reduced  by  one-half  to 
one-fourth  of  the  elastic  solutions,  with  the  number  of  iterations  to  achieve  convergence 
for  each  increment  rising  by  at  least  an  order  of  magnitude.  Thus,  the  CPU  times  for  the 
elasto-plastic  solutions,  compared  to  the  elastic  solution,  for  a  particular  shell  problem 
increase  by  200-500%  depending  upon  the  material  properties,  number  of  elements,  and 
the  boundary  conditions  applied. 

The  software  and  user’s  manual  is  maintained  by  the  Aeronautics  &  Astronautics 
Department  of  the  Engineering  School  (AFIT/ENY).  The  point  of  contact  is  Dr  Anthony 
Palazotto. 


NONLINEAR  GEOMETRIC  &  MATERIAL 
BEHAVIOR  OF  COMPOSITE  SHELLS 
WITH  LARGE  STRAINS 


1.  Introduction 

Recent  interest  in  composite  shell  analysis  has  been  generated  by  the  use  of  fiber-rein- 
forced  composite  materials  for  aerospace  applications.  A  second  factor  in  the  proliferation 
of  composite  shell  research  is  the  use  of  modem  digital  computers.  With  computers,  solu¬ 
tions  can  now  be  found  for  problems  which  before  were  impossible  to  solve  analytically. 
In  particular,  problems  involving  geometric  and  material  nonlinearities  can  be  solved  by 
numerical  methods. 

In  1987,  Noor  and  Atiuri  [134]  indicated  several  compelling  reasons  for  vigorously 
developing  computational  structural  mechanics  (see  also  Noor  and  Burton  [755, 137]  and 
Noor  [758]).  First,  there  are  unsolved  practical  problems  awaiting  numerical  solution. 
These  include  impact  response,  dynamics  of  flexible  structures,  thermoviscoplastic 
response  of  propulsion  systems,  and  future  flight  vehicle  design.  Also,  fundamental 
mechanics  concepts  such  as  finite  strain  inelastic  material  behavior  are  currently  being 
explored.  Secondly,  computational  structural  mechanics  is  needed  to  reduce  the  depen¬ 
dence  on  testing  which  is  often  expensive  in  terms  of  manpower  and  material.  Noor  and 
Atiuri  also  indicate  the  development  of  efficient  finite  elements  for  modelling  curved  shell 
structures  as  an  area  of  continuing  research  activity.  Wempner  states  in  a  1989  review  arti¬ 
cle  [257],  "Clearly,  the  theory  and  approximation  of  inelastic  shells  pose  intellectual  and 
practical  challenges  for  current  investigators  and  engineers."  Recent  research  on  shell 
structures  at  the  Air  Force  Institute  of  Technology  is  actively  supported  by  the  US  Air 
Force  Office  of  Scientific  Research  [41,  42,  48,  49,  51,  81,  82,  154  -  161,  197,  198,  207, 
208,  217,  220,  223,  224].  This  research  on  geometrically  nonlinear  behavior  of  cylindrical 
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laminated  composite  shells  is  restricted  to  elastic  material  response.  The  extension  to 
include  finite-strain  nonlinear  material  response  as  a  result  of  large  deformations  with 
moderate  rotations  and  curvatures  is  feasible. 

Composite  shell  structures  are  used  in  many  US  Air  Force  and  defense-related  systems 
because  of  the  inherently  high  strength-to- weight  ratios  of  composite  shell.  Historically, 
thin  isotropic  shells  have  been  analyzed  for  many  years  according  to  the  linear  elastic  the¬ 
ory  formulated  by  A.E.H.  Love  [114]  in  the  late  1800's.  Love's  theory  assumes  normals  to 
the  shell's  mid-surface  remain  straight  and  normal  during  deformation.  This  assumption, 
like  the  Kirchhoff  assumption  for  flat  plates,  implies  transverse  shear  strain  and  stress  are 
zero  throughout  the  shell.  Also,  since  the  shell  is  assumed  to  be  very  thin  compared  to  its 
other  characteristic  lengths,  many  terms  in  the  equations  are  approximated  (e.g.,  terms 
with  radius  in  the  denominator  are  assumed  negligible).  More  recently,  Donnell  [55], 
Mushtari,  and  Vlasov  [227]  independently  derived  comparable  theories  for  thin  elastic 
shells  that  included  nonlinear  terms  (functions  of  transverse  displacement)  for  the  in-plane 
strains.  These  theories,  however,  still  ignored  transverse  shear  and  most  terms  with  the 
radius  in  the  denominator. 

In  general,  shell  theories  that  ignore  transverse  shear  effects  will  predict  stiffer  behav¬ 
ior  than  experimental  data  show.  Inclusion  of  transverse  shear  effects  reduces  this  stiff 
behavior.  Like  Love's  theory,  the  newer  Donnell,  Mushtari,and  Vlasov  theories  invoked 
the  Kirchhoff  hypothesis.  Thus,  they  also  ignored  transverse  shear  strain  and  stress.  For 
thick  shells,  however,  the  transverse  shear  terms  can  not  be  ignored  in  all  cases.  Likewise, 
transverse  shear  terms  become  more  significant  with  the  introduction  of  anisotropic  com¬ 
posite  materials.  This  is  primarily  due  to  the  small  transverse  shear  modulus  of  fiber-rein¬ 
forced  composite  materials. 

During  the  last  two  decades,  many  composite  shell  problems  with  transverse  shear- 
effects  included  have  been  solved  using  numerical  solution  techniques.  Some  investiga¬ 
tors  have  solved  these  problems  using  fully  three-dimensional  models.  These  models, 
however,  generally  require  excessive  computational  times.  They  may  also  exhibit  singu¬ 
larities  and  other  mathematical  problems  when  used  to  analyze  thin  shells.  These  singular¬ 
ities  occur  due  to  the  term  h/1  becoming  very  small  as  for  a  thin  shell. 
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Depending  upon  the  precision  of  the  computer,  and  the  complexity  of  the  equations  gov¬ 
erning  normal  stress  (a3)  and  normal  strain  (£3)  ,  as  h^O  quantities  with  {h/2)  in 

the  denominator  begin  to  approach  infinity.  Other  investigators  have  solved  these  prob¬ 
lems  using  shell  theories,  which  require  less  computational  effort,  with  either  first-order  or 
higher-order  transverse  shear  deformation. 

The  "order"  of  transverse  shear  deformation  theories  refers  to  the  highest  order  poly¬ 
nomial,  in  terms  of  the  thickness  coordinate,  used  to  describe  the  assumed  displacement 
field.  This  does  not,  in  general,  imply  that  higher-order  shear  theories  have  more  indepen¬ 
dent  degrees  of  freedom.  The  first-order  transverse  shear  deformation  (FTSD)  theories  use 
shear  correction  factors  and  reduced  integration.  These  artifices  compensate  for  the  theo¬ 
retically  incorrect  distribution  of  transverse  shear  strain.  The  higher-order  transverse  shear 
deformation  (HTSD)  theories  allow  normals  to  the  shell's  mid-surface  to  rotate  from  nor¬ 
mal  and  also  to  warp.  This  assumption  results  in  a  transverse  shear  strain  distribution  that 
is  parabolic  through  the  thickness  of  a  flat  plate.  Most  previous  theories  for  geometrically 
nonlinear  shell  problems  with  HTSD  theory  have  retained  some  nonlinear  strain-displace¬ 
ment  terms  for  the  in-plane  strain  components.  Most,  however,  have  also  ignored  nonlin¬ 
ear  strain-displacement  terms  and  the  effect  of  higher-order  thickness  expansions  for 
transverse  shear  components. 

Numerical  analysis  of  laminated  composite  shells,  including  geometric  and  material 
nonlinearities  is  relatively  a  recent  occurrence  (see  [10,  28,  40,  46,  48,  62,  67,  69,  102, 
118,  145  -  147,  160,  164,  189,  0207]),  again  due  to  the  advent  of  increasingly  powerful 
high-speed  computer  work  stations.  The  composite  laminates  are  treated  as  an  equivalent 
single  layer  [32]  or  as  a  degenerated  3-D  continuum  [34,  37,  48,  154,  207].  The  geometric 
nonlinearity  used  in  single-layer  theories  is  analogous  to  the  von  Karman  relations  for 
plates  or  the  Donnell  relations  for  shells,  whereas  the  full  nonlinearity  is  used  in  the 
degenerated  3-D  theories.  The  material  nonlinearity  has  been  approached  form  either 
micromechanics  or  macromechanics  points  of  view.  In  the  micromechanics  approach,  the 
matrix  is  considered  as  an  elastic-plastic  material  while  the  fibers  are  considered  to  bebrit- 
tle-elastic.  There  are  a  multitude  of  papers  published  regeirding  various  theories  and  meth¬ 
ods,  most  notably  Aboudi  [1,  2]  and  Dvorak  [5S].  However,  since  the  global  structural 
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response  of  the  shell  is  a  primary  interest  of  this  research,  a  micromechanical  model  is  not 
appropriate.  In  a  macromechanical  approach  for  composites,  some  attempt  is  made  in 
determining  the  in-plane  interaction  of  the  fiber  orientation  and  the  material  coordinate 
system  and  the  analysis  is  usually  carried  on  an  individual  ply  basis.  Failure  and  yielding 
are  allowed  to  occur  independently  on  each  ply.  Several  methods  have  been  published  in 

this  area.  Hahn  and  Tsai  [73,  74]  modelled  nonlinear  shear  response  of  a  composite  by 
introducing  a  complementary  elastic  energy  density  function  which  produced  fair  results. 

The  anisotropic  plasticity  theory  of  Hill  [78  -  SO]  has  led  many  subsequent  researchers 
to  develop  constitutive  models.  Hill  originally  proposed  his  theory  to  model  weakly 
orthotropic  behavior  typically  found  in  cold  rolled  metals.  Several  author's  have  suggested 
extensions  to  Hill's  theory.  Hu  [S5]  and  Jensen,  et  al  [93]  proposed  work  hardening  rules. 
Dubey  and  Hiller  [60]  developed  a  more  general  yield  criterion  which  was  an  associated 
flow  rule  based  upon  invariant  principles.  Shih  and  Lee  [203]  formulated  a  simple  exten¬ 
sion  which  allows  distortion  of  the  yield  surface  and  variations  of  the  anisotropic  yield 
parameters  during  deformation.  Durocher  and  Palazotto  [61],  formulated  a  finite  differ¬ 
ence  technique  to  analyze  the  buckling  equations  of  anisotropic  plates.  They  developed  a 
series  of  Ramberg-Osgood  directionally  oriented  stress-strain  equations  to  characterize  the 
nonlinear  portion  of  the  stress-strain  curves  for  a  particular  material  of  interest.  By  incor¬ 
porating  the  Ramberg-Osgood  parameters  into  Hill's  anisotropic  platicity  theory,  they 
were  able  to  characterize  either  perfectly  plastic  or  work-hardening  materials  quite  eastily. 
Chandrashekhara  and  Reddy  [32,  176]  developed  a  2-D  shell  element  that  included  the 
transverse  shear  stresses  and  the  modified  von  Mises  yield  function  with  the  in-plane 
interaction  term.  Most  of  the  methods  published  incorporated  an  updated  Lagrangian 
approach  with  either  a  FTSD  or  HTSD  theory  while  ignoring  most  of  the  in-plane  nonlin¬ 
ear  strain-displacement  terms.  None  of  the  published  literature  allowed  for  a  large  strain 
formulation  which  implies  the  Eulerian  coordinate  system  and  the  Lagrangian  coordinate 
system  are  no  longer  coincident  from  an  experimental  material  point-of-view. 

For  this  research,  the  full  nonlinear  strain-displacement  relations  for  the  in-plane  strain 
components  with  linear  strain-displacement  relations  for  the  transverse  strain  components 
of  a  spherical  shell  were  developed.  These  relations  were  then  incorporated  into  a  proven 
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finite  element  formulation  to  investigate  the  accuracy  of  various  geometries  for  curvature 
and  displacements  and  the  effect  of  a  HTSD  theory  with  a  nonlinear  material  analysis  for 
large  strains. 

A  review  of  related  research  in  the  areas  of  composite  shells,  transverse  shear  defor¬ 
mation,  and  nonlinear  material  analysis  is  included  in  Chapter  2.  Some  theoretical  con¬ 
cepts  are  presented  in  Chapter  3.  These  concepts,  common  in  most  published  literature 
addressing  the  subject  of  this  dissertation,  were  not  independently  developed  by  this 
author.  They  are  included  in  the  dissertation  to  assure  a  common  understanding  of  the  the¬ 
oretical  background  of  this  research.  The  theoretical  discussion  necessary  to  develop  the 
new  finite  element  formulation,  by  the  author,  is  presented  in  Chapter  4.  Since  the  strain 
equations  for  this  theory  are  very  lengthy,  abridged  equations  are  used  in  Chapter  4.  The 
unabridged  equations  of  strain  components  are  listed  in  the  appendices.  Typical  composite 
shell  problems  of  interest  to  the  USAF  and  some  classical  isotropic  shell  problems  were 
investigated  to  determine  the  effect  of  spherical  geometry  and  nonlinear  material  proper¬ 
ties  with  a  HTSD  theory.  A  significant  tool  used  in  the  development  of  this  theory  was  a 
computerized  symbolic  manipulation  code  called  MACSYMA  [119].  Use  of  a  symbolic 
code,  like  MACSYMA,  allows  the  formulation  of  the  nonlinear  HTSD  theory  for  cylindri¬ 
cal  and  spherical  composite  shells.  The  use  of  one  "symbolic  input  program"  to  generate 
the  variations  of  theory  provides  reliability  and  confidence  that  the  FORTRAN  codes 
were  correctly  generated.  Part  of  the  symbolic  input  program  is  included  as  an  appendix 
since  it  played  such  an  important  role  in  this  research  effort. 
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2.  Literature  Review 


Studying  large  deformation  nonlinear  material  behavior  of  composite  shells  provides 
unique  data  not  currently  published  in  the  technical  literature.  Literally  hundreds  of 
papers  were  published  in  the  last  several  years  on  related  topics.  One  of  the  most  recent 

review  articles  by  Noor  and  Burton  [755]  reviews  400  published  works  on  computational 
models  for  multi-layered  composite  shells.  Thin  composite  shells  are  becoming  important 
in  structures  due  to  their  high  strength  and  stiffness  efficiency.  However,  these  thin  shells 
are  susceptible  to  buckling  which  is  inherently  a  nonlinear  phenomenon.  The  nonlineari¬ 
ties  are  attributed  to  the  occurrence  of  large  rotations,  and  the  coupling  of  curvatures  and 
large  membrane  forces.  In  addition,  as  the  shell's  thickness  is  increased  or  laminated  com¬ 
posite  material  is  introduced,  the  effects  of  parabolic  transverse  shear  distribution  is  more 
important.  Classical  shell  theories  based  on  the  Kirchhoff-Love  hypothesis  neglect  the 
transverse  shear  distribution.  Hence,  the  shell  element  is  excessively  stiff  as  the  thickness 
is  increased.  Typical  linear  and  simple  nonlinear  shell  models  often  drastically  overesti¬ 
mate  buckling  loads.  Conversely,  these  models  underestimate  transverse  displacements 
and  stresses.  Most  advanced  composites  have  a  low  ratio  of  transverse  shear  modulus  to 
in-plane  modulus.  Thus,  transverse  shear  deformation  plays  an  important  role  in  reducing 
effective  flexural  stiffness  of  laminated  plates  and  shells  made  of  composites. 

Knight,  Starnes,  and  Williams  [97]  investigated  the  postbuckling  response  and  failure 
characteristics  of  graphite-epoxy  cylindrical  panels  loaded  in  axial  compression.  They 
used  the  STAGSC-1  computer  code  [4]  to  determine  postbuckling  response  of  the  cylin¬ 
drical  shells  and  panels  and  compared  results  with  experimental  data.  They  determined 
that  a  severe  reduction  in  load  occurs  at  buckling  and  that  failure  begins  near  regions  con¬ 
taining  severe  local  bending  gradients.  Knight  et  al.  pointed  out  that  many  previous  stud¬ 
ies  of  the  postbuckling  behavior  of  composite  cylindrical  panels  were  extensions  of 
classical  methods.  These  often  ignored  the  effects  of  large  rotations.  They  determined 
that  even  low  values  of  normalized  applied  load  can  cause  high  local  bending  gradients. 
Local  failures  occurred  in  regions  of  large  radial  displacements  and  severe  bending  gradi¬ 
ents  which  cause  large  surface  strains  [97;  752].  They  were  able  to  predict  responses  that 
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correlated  well  with  experimental  data  up  to  buckling.  They  blame  the  influence  of  local 
failures  for  deteriorating  the  correlation  after  buckling.  They  note  STAGSC-1  assumes 
the  composite  material  system  remains  linearly  elastic  throughout  the  analysis.  This 
assumption  is  inaccurate  since  many  composites  suffer  severe  reduction  in  local  stiffness 
as  a  result  of  local  failures.  Furthermore,  the  local  failures  which  occurred  near  regions  of 

large  changes  in  curvature  cannot  be  analytically  modelled  by  STAGSC-1  [97:147]. 
Using  both  Tsai-Wu  and  a  maximum  strain  failure  criteria,  they  were  able  to  predict  the 
load  level  and  location  of  the  local  failures,  but  not  the  dominant  failure  mode.  This  study 
points  out  the  need  to  address  nonlinear  material  response  occurring  with  the  large  rota¬ 
tions  for  this  class  of  problems  and  materials. 

Palazotto  and  others  also  used  the  STAGSC-1  computer  code  [156,  197,  198],  They 
compared  analytical  predictions  of  buckling  response  to  experimental  work  on  graphite- 
epoxy  cylindrical  panels.  Their  work  included  the  effects  of  rectangular  unreinforced  cut¬ 
outs.  They  also  recorded  large  radial  displacements,  large  curvatures  over  small  regions, 
and  severe  curvature  gradients  for  loads  as  low  as  ten  percent  of  the  critical  buckling  load. 
As  before,  the  assumption  of  linearly  elastic  material  response  is  used  for  the  STAGSC-1 
code.  Under  small  loads,  no  permanent  damage  occurred,  and  thus  some  investigators 
argue  the  linearly  elastic  material  assumption  is  adequate.  These  studies  and  the  one  by 
Knight  suggest  these  severe  local  bendings  warrant  the  use  of  a  better  model.  A  model 
capable  of  accurately  predicting  both  geometric  and  material  nonlinear  response  should  be 
more  suitable. 

Yang  and  Liaw  [236]  studied  the  effects  of  plasticity  on  the  dynamic  buckling 
response  of  isotropic  shells.  Their  model  used  a  thin-shell  Kirchhoff-Love  theory  with  a 
von  Mises  yield  criterion  and  the  Prandtl-Reuss  flow  law.  They  determined  a  50  percent 
reduction  in  the  static  buckling  load  occurred  for  perfect  spherical  caps  when  plasticity  is 
included  in  the  analysis  [236:482].  Larger  rotations  and  curvatures  may  occur  as  a  result 
of  composite  anisotropy  for  these  problems.  This  implies  the  effect  of  an  inelastic  model 
for  composite  shells  may  be  more  significant  than  for  isotropic  shells.  , 
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2.1  Nonlinear  Material  Behavior 


A  finite  element  model  for  the  nonlinear  analysis  of  composite  shells  must  approxi¬ 
mate  the  physical  phenomena  occurring  in  an  extremely  complex  nonlinear  problem. 
Some  of  the  complexities,  e.g.  the  coupling  of  membrane  and  bending  effects  due  to  the 
curvature  of  the  shell  and  the  effect  of  transverse  shear  distribution,  were  previously  con¬ 
sidered.  Other  complexities,  e.g.  the  effect  of  nonlinear  material  response  and  the  effects 
of  constituent  behavior  under  large  strain,  are  considered  in  this  research.  Many  studies 
were  performed  after  making  various  assumptions  to  simplify  these  complexities.  For 
composite  shells,  some  studies  use  a  first-order  transverse  shear  theory  with  bi-linear  elas¬ 
tic-plastic  material  behavior  [6,  10,  13, 16,  17,  20,  31,  36,  57,  58,  67,  88,  89,  90,  101,  102, 
111,  118, 145,  146,  149,  150,  151,  215,  218,  230].  Several  studies  used  a  layered  approach 
to  yield  parabolic  distribution  of  transverse  shear  strains  through-the-thickness.  Some 
investigators  used  a  higher-order  transverse  shear  theory  or  more  sophisticated  nonlinear 
material  behavior  models,  but  only  for  specific  shells  or  isotropic  materials  (see  [21,  22, 
23,  28,  46,  48  -  51,  53,  56,  62,  71,  81,  82,  99,  162,  163,  174  -  182,  187,  188,  206]  or  [96, 
103  - 106,  158,  164,  174,  176, 194, 195]  for  details). 

This  research  will  formulate  material  response  model  for  a  degenerated  shell  element 
with  higher-order  transverse  shear  deformation  with  large  strains.  The  first-order  shear 
and  bi-linear  formulations  used  in  [5i,  82,  102,  145]  may  not  adequately  account  for  the 
effect  of  transverse  shear  distribution.  Furthermore,  their  formulations  allow  for  small 
rotations  only.  The  study  by  Knight  et  al.  accounts  for  some  rotational  effects,  but  does 
not  adequately  account  for  large  local  curvature  and  transverse  shear  deformation  effects. 

The  response  of  the  structure  to  loading  is  critically  dependent  upon  accurate  constitu¬ 
tive  modelling  of  material  behavior.  Simple  material  models  such  as  linear  isotropic  and 
linear  kinematic  hardening,  may  be  inadequate  for  some  engineering  applications.  Prob¬ 
lems  involving  large  nonlinear  material  deformation  and  failure  may  require  rate-depen- 
dent  plasticity  models  [54,  112,  147,  172,  191].  These  models  are  developed  by  using 
phenomenological  models  of  small  or  finite  strain,  plastic  material  behavior  or  by  micro¬ 
mechanical  models  of  material  behavior  [1,  2,  65,  100,  113,  115,  116]. 
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Extensive  work  is  devoted  to  micromechanical  models  for  predicting  the  behavior  and 
failure  characteristics  of  materials.  In  the  context  of  developing  a  shell  theory,  the  use  of 
a  micromechanical  model  is  not  appropriate.  Our  intent  is  to  reduce  the  computational 
effort  by  modelling  the  shell  as  a  quasi  two-dimensional  structure. 

Many  investigators  used  a  form  of  the  von  Mises  yield  criteria  to  determine  the  onset 
of  nonlinear  material  behavior  for  ductile  materials.  This  theory  is  effectively  modified 
for  use  with  composite  materials  [67,  102,  145,  236].  Other  yield  criteria  for  possible 
comparisons  are  the  Tsai-Wu,  Tsai-Hill,  Hahn-Tsai,  and  Sandhu  failure  criteria  to  establish 
the  onset  of  plasticity.  These  are  not  yield  criteria,  i.e.  they  do  not  predict  elastic -plastic 
behavior.  They  are  simply  criteria  that  predict  the  initial  failure  of  a  fiber-matrix  lamina. 
As  such,  they  are  not  particularly  useful  for  an  elastic-plastic,  laminated  composite  shell 
analysis.  The  first  two  criteria  are  considered  linear  criteria,  i.e.  only  accurate  up  to  the 
point  where  the  stress-strain  relationship  is  still  linear.  This  is  not  a  useful  assumption  for 
many  polymeric  matrix  composite  materials  having  a  nonlinear  stress-strain  relation  in 
shear.  The  Hahn-Tsai  and  Sandhu  criteria  are  nonlinear,  but  assume  all  transverse  stresses 
are  zero.  Chen  compared  ultimate  load  predictions  for  angle-ply  laminate  using  Hahn-Tsai 
(nonlinear)  and  Tsai-Hill  (linear)  yield  criteria  [40].  For  fiber  orientation  angles  of  0 
degrees  or  75-90  degrees,  the  two  theories  predict  ultimate  tensile  load  to  within  1/2  of  a 
percent.  However,  for  angles  of  15-60  degrees,  the  linear  analysis  predicts  a  10-20  percent 
greater  ultimate  tensile  load  than  the  nonlinear  analysis.  This  implies  the  linear  analysis  is 
unconservative  for  laminates  with  15-60  degree  lamination  angles. 

Another  method  of  analyzing  composite  materials  is  the  use  of  the  independent  failure 
criteria.  This  method  assumes  the  failure  modes  of  delamination,  fiber  breakage,  and 
matrix  cracking  are  independent,  but  each  has  an  effect  upon  the  element's  stiffness 
matrix.  This  method  was  used  by  several  investigators  to  analyze  progressive  failure  of 

composites.  Ochoa  and  Engblom  [142]  used  a  fiber  failure,  matrix  failure,  and  delamina¬ 
tion  as  their  failure  criteria.  Their  matrix  failure  criteria  is  based  upon  those  of  Hashin 
[75].  Hwang  and  Sun  [91]  used  failure  criteria  based  upon  the  Tsai-Wu  theory  and 
Hashin' s  theory  [91].  Their  work  also  included  fiber  failure,  matrix  failure,  and  two  forms 
of  delamination  failure.  Fiber  or  matrix  failure  effects  are  modelled  by  setting  the  appro- 
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priate  entries  in  the  element  stiffness  matrix  to  zero.  Reference  [142]  uses  a  two-dimen¬ 
sional  shell  model  and  if  delamination  occurs,  the  analysis  is  stopped.  Reference  [Pi]  uses 
a  full  three-dimensional  model.  If  delamination  occurs,  a  new  finite  element  configuration 
is  modelled  at  the  free  surface  at  the  new  ply  interface.  Singularity  crack  tip  elements  are 
used  at  the  delamination  front  [91:44],  Ochoa  and  Engblom  [142],  however,  predict  com¬ 
posite  response  beyond  first-ply  failure. 

This  disparity  in  approach  reveals  the  debate  over  how  to  predict  progressive  failure  of 
composites,  an  important  analytical  tool  in  structural  design.  A  research  program  develop¬ 
ing  a  theory  for  collapse  of  a  composite  is  an  area  of  high  interest.  The  use  of  composites 
in  the  aerospace  and  transportation  industries,  where  traditionally  metals  are  used, 
requires  a  different  outlook  about  residual  strength.  With  metallic  structures,  adequate 
analytical  tools  exist  to  predict  material  yielding  under  service  loads,  load  transfer  through 
damaged  structure,  and  residual  strength.  With  composites  however,  these  analytical  tools 
are  not  available  nor  convenient.  Thus,  the  most  common  failure  criteria  predict  only  that 
a  failure  of  some  type  occurred  in  a  particular  finite  element.  This  information  is  not 
enough  to  determine  residual  strength  of  the  structure.  Composites  have  shown  consider¬ 
able  residual  strength  after  first  ply  failure  (see  [33,  40,  97,  121,  130,  142,  143]  for  exam¬ 
ple  or  [i55,  157,  190,  196,  211,  212,  213,  215]).  The  designer  may  choose  a  conservative 
approach  and  design  based  upon  first  ply  failure.  For  advanced  high  performance  aero¬ 
space  vehicles  however,  the  added  weight  and  cost  of  the  conservative  approach  may  be 
prohibitive.  Thus,  the  designer  should  be  able  to  predict  progressive  failure  of  the 
advanced  composite  structure. 

A  paradox  arises,  however,  when  a  considering  shells  with  nonlinear  material  behav¬ 
ior.  The  large  radial  displacements  and  curvatures  occurring  over  a  small  region,  as  shown 
by  Knight  et  al.  [97],  cause  severe  gradients  in  stresses  through-the-thickness.  Shell  theo¬ 
ries  try  to  exploit  the  thinness  of  the  shell.  Normal  stresses  are  assumed  negligible,  and 
various  assumptions  are  made  about  the  deformation  of  line  elements  normal  to  the  shell's 
mid-surface.  These  assumptions  are  made  to  reduce  the  three-dimensional  problem  down 
to  a  two-dimensional  problem.  For  a  thin  shell,  various  studies  have  shown  the  two- 
dimensional  shell  can  accurately  predict  the  load-displacement  response  [48,  107,  109], 
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The  two-dimensional  theory  is  acceptable  for  shell  thickness  less  than  1/5^^  the  radius  of 
curvature  [48,  207].  Since  this  research  is  directed  at  the  load-displacement  response  of  a 
composite  shell  with  nonlinear  material  behavior,  the  two-dimensional  shell  theory  is  ade¬ 
quate  for  this  study. 


2.2  Curve  Shell  Finite  Element  Models 

Many  research  efforts  have  been  conducted  in  developing  reliable  and  efficient  ele¬ 
ments  for  modelling  complicated  structures.  Of  particular  interest  is  the  development  of 
curved  shell  elements.  According  to  Noor  et  al.  [134,  135,  137],  this  area  continues  to  be 
an  active  research  area.  Many  authors  advocate  the  use  of  thin  two-dimensional  shell  ele¬ 
ments  and  "grow"  the  parameters  in  the  thickness  direction.  They  increase  the  number  of 
layers  to  achieve  accurate  through-the-thickness  stress  results.  This  process  is  expensive 
since  the  number  of  layers  could  be  excessively  high.  Other  authors  use  two-dimensional 
models  with  higher  order  approximations  or  even  full  three-dimensional  models  [48,  136, 

154, 160,  207,  213].  Noor  and  Burton  indicate  the  use  of  both  three-dimensional  and  quasi 
three-dimensional  models  for  laminated  anisotropic  plates  is  expensive.  Thus,  these  meth¬ 
ods  are  not  economical  for  practical  composites  plates  [136].  Most  two-dimensional  theo¬ 
ries  are,  however,  adequate  for  predicting  the  gross  response  characteristics  of  medium- 
thick  laminated  plates  and  shells. 

There  are  basically  two  methods  of  formulating  a  finite  element  shell  model.  The  tra¬ 
ditional  method  is  a  single-field  formulation  where  displacement  is  the  field.  A  more 
recent  approach  is  the  mixed  field  formulation.  Various  schemes  for  constructing  two- 
dimensional  shear-deformation  theories  for  multi-layered  shells  are  available.  One 
approach,  an  extension  of  the  Kirchhoff  hypothesis,  results  in  first-order  shear  deforma¬ 
tion  theories. 

2.2.1  First-Order  Transverse  Shear  Deformation  (FTSD)  Theories:  These  theories 
assume  line  elements  originally  perpendicular  to  the  shell's  mid-surface  remain  straight 
during  deformation,  but  can  rotate  from  the  normal.  Thus,  through-the-thickness  shear- 
strains  are  constant.  This  assumption  is  closer  to  reality  than  the  classical  Kirchhoff-Love 
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theory,  but  not  exact.  The  classical  theory  assumes  line  elements  normal  to  the  unde¬ 
formed  shell  mid-surface  always  remain  inextensible,  straight,  and  normal  to  the 
deformed  mid-surface.  Hence,  classical  theory  predicts  zero  through-the-thickness  shear 
stresses.  This  assumption  was  shown  to  be  inaccurate  for  laminated  composite  shells.  The 
accepted  distribution  of  the  shear  stress  is  some  form  of  a  parabolic  function.  Hence,  the 
FSDT  must  include  a  shear  correction  factor  to  assure  the  strain  energy  associated  with  the 
shear  deformation  is  accurate.  For  isotropic  materials,  the  shear  correction  factor  is  a  con¬ 
stant  k  =  5/6.  For  anisotropic  materials  or  for  laminated  composite  materials,  these  factors 
are  typically  not  equal  to  5/6.  The  shear  correction  factor  is  a  function  of  geometry,  mate¬ 
rial,  and  loading  conditions.  For  composites,  some  investigators  assume  k  =  5/6  rather 
than  determine  a  better  approximation.  The  use  of  ^  =  5/6  is  justified  by  considering  the 
relationship  between  the  predominant  roles  of  flexural  and  extensional  deformations  ver¬ 
sus  the  lesser  role  of  transverse  shear  in  a  thin  shell.  If  one  wants  to  accurately  determine 
the  through-the-thickness  shear  distribution,  then  other  studies  [136]  have  shown  that  for 
anisotropic  materials  or  laminated  composite  materials,  the  correct  shear  correction  factor 
in  the  FSDT  is  critical. 

2.2.2  Higher-Order  Transverse  Shear  Deformation  (HTSD)  Theories:  These  theories 
overcome  the  difficulties  of  shear  correction  factors  by  assuming  the  line  element  normal 
to  the  shell  mid-surface  can  warp  [48  -  51,  107,  160,  175,  176,  179,  198,  208,  223,  224] 
This  assumption  allows  shear  strain  to  vary  through  the  shell's  thickness  as  a  function  of 
the  thickness  coordinate  of  the  shell.  The  HSDT  still  assumes  the  stress  normal  to  the 
shell's  mid-surface  is  negligible.  These  models  provide  a  more  accurate  estimate  of  the 

shell  response  than  the  classical  theory  or  FSDT  [48,  160,  176,  208,  209]. 

The  FSDT  and  HSDT  are  based  on  the  assumption  of  the  normal  stress  being  negligi¬ 
ble.  Because  of  this  assumption,  neither  of  these  theories  accurately  predict  all  stresses  in 
the  shell.  This  is  because  the  equilibrium  and  compatibility  equations  are  not  exactly  satis¬ 
fied  at  all  points  within  the  shell.  Hence,  some  investigators  use  three-dimensional 
approximations  for  shell  problems  [224,  231].  Others  use  a  two-dimensionalshell  theory 
to  predict  gross  global  responses.  Once  these  are  determined,  local  stresses  are  computed 
by  numerically  integrating  the  three-dimensional  equations  of  equilibrium  [38,  39,  63,  64, 
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132,  133,  136,  142,  143,  152]  These  global/local  methods  efficiently  predict  accurate 
stress  distributions  without  resorting  to  the  computational  effort  required  for  the  full  three- 
dimensional  finite  element  of  the  shell  [64], 


2.3  Literature  Assessment 

No  study  was  published  using  the  proposed  theory  to  predict  the  load-displacement 
behavior  of  composite  shells  with  nonlinear  material  behavior  undergoing  moderate 
deformations  and  rotations  with  large  strains.  The  work  by  Engblom  [63,  64]  is  restricted 
to  thin  and  moderately  thick  inelastic  shells  undergoing  small  deformations  and  rotations. 

As  shown  by  earlier  references  [97,  156],  the  collapse  analysis  and  failure  of  laminated 
composite  shells  is  preceded  by  large  deformations,  rotations,  and  changes  in  curvatures. 
Any  analysis  of  progressive  failure  assuming  linear  strain  is  suspect. 

The  previous  research  conducted  by  Dennis  [48,  159]  will  be  extended  by  this  research 
to  include  a  spherical  shell  element,  the  transformation  of  the  constitutive  relations  from 
the  Cauchy  stress-strain  (Eulerian  coordinates)  to  the  second  Piola  stress-Green  strain 
(Lagrangian  coordinates),  and  an  incremental  model  of  inelastic  isotropic  or  orthotropic 
material  behavior.  The  results  of  this  research  on  inelastic  composite  shells  undergoing 
snap-through  and  axial  post-buckling  deformation  will  be  unique. 
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3.  Theoretical  Background 


The  primary  goal  of  this  research  was  to  consider  the  ability  of  a  nonlinear  material 
with  a  higher-order  transverse  shear  deformation  (HTSD)  theory  to  model  deformation  of 
a  composite  shell  undergoing  large  displacements,  rotations,  strains,  and  changes  in  curva¬ 
ture.  In  particular,  spherical  geometry,  transformation  of  the  Cauchy  stress-strain  relations 
to  the  2nd  Piola  stress-Green  strain  relations,  and  elastic -plastic,  through-the-thickness 
material  behavior  were  considered  in  this  research.  Many  HTSD  models  have  been  devel¬ 
oped  in  recent  years  [48,  180].  These  theories  are  suitable  for  linear  and  nonlinear  prob¬ 
lem  solving  by  a  number  of  numerical  solution  methods.  This  chapter  of  the  dissertation 
includes  some  theoretical  background  material.  The  background  material  is  necessary  to 
assure  a  common  understanding  of  the  concepts  underlying  the  nonlinear  HTSD  theory.  A 
presentation  of  the  nonlinear  HTSD  theory  developed  for  this  research  is  included  in 
Chapter  4. 

3.1  Surface  Geometric  Considerations 

Components  of  particular  physical  quantities,  such  as  displacement,  stress,  and  strain, 
however,  are  more  generally  defined  for  arbitrary  curvilinear  coordinate  systems  as  being 
either  covariant  or  contravariant.  These  quantities  are  identified  in  the  text  as  being  covari¬ 
ant  or  contravariant  when  the  tensorial  nature  of  the  quantity  is  generally  accepted  in  the 
literature.  Conventional  tensor  notation  requires  that  contravariant  quantities  be  identified 
by  superscripts  and  covariant  quantities  be  identified  by  subscripts.  This  practice  is  gener¬ 
ally  followed  throughout  this  dissertation.  For  convenience,  however,  coordinates  are 
always  identified  with  subscripts.  The  basic  assumptions  of  a  two-dimensional  shell  the¬ 
ory  are  tied  to  the  concepts  of  a  reference  surface,  the  midsurface  of  the  shell,  and  a  local 
curvilinear  coordinate  system  associated  with  this  surface.  When  this  curvilinear  coordi¬ 
nate  system  is  based  on  lines  of  principal  curvature,  which  by  definition  are  orthogonal, 
then  the  coordinate  system  is  also  orthogonal.  In  an  orthogonal  coordinate  system,  the 
components  of  the  metric  tensor  form  a  diagonal  matrix.  Thus,  contravariant  and  covari- 
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ant  components  of  tensors  are  identical.  For  this  research,  the  author  has  decided  to  restrict 
the  theoretical  development  to  orthogonal  coordinate  systems  based  upon  lines  of  constant 
curvature.  This  is  one  of  the  most  common  coordinate  systems  used  for  analysis  of  shells 

[126,  1391 

The  development  of  nonlinear  strain  displacement  relations  generally  begins  with  the 
mathematical  description  of  the  midsurface  geometry.  If  one  considers  a  surface  in  a  three- 
dimensional  space,  then  the  positions  of  points  on  its  surface  can  be  defined  by 

r=r(Q^,Q^)  ,  (3.1) 

where  r  is  the  position  vector  from  the  origin  O  to  points  on  the  surface  [126,  192].  The 
parameters  (0i,02)  are  defined  in  a  closed  and  bounded  region  S  in  the  (0i,02)  plane.  Next, 


assume  the  unit  normal  vector  to  the  surface  exists  and  is  (0i,02)  and  the  thickness  of 
the  shell  is  h  =  /i(0i,02),  where  h>0.  The  position  vector  of  a  point  within  the  shell  can  be 

written  in  terms  of  r  and  <33 .  This  position  vector,  p  (0i,02,/i),  is  given  by 

p  (0p02,  Z)  =  r  (0p  02)  +^^3  (0p  02)  ,  (3.2) 

where  (0j,  03)  g  S  and  \z\  =  (1/2)^  (01,02)-  The  (0i,02)-plane  defined  by  the  S  is  called 

the  middle  surface.  The  curves  defined  by  the  map  of  0]  =  constant  and  02  =  constant  are 

called  coordinate  curves.  These  curves  define  a  curvilinear  coordinate  system  with  covari- 
— ^ 

ant  base  vectors  and  aj  given  by 

d  ^  d  ^ 


->  0  > 
'a  "  MI'’ 


a=  1,2, 


An  infinitesimal  vector  connecting  two  points  on  the  surface  with  coordinates  (0i,02) 
and  (01  -I-  <i0i,02  +  dQ2)  is  given  by 
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where  the  repeated  subscripts  imply  summation  as  shown  m  Eq  (3.5).  The  length  of  this 
vector  is  denoted  by  ds  and  is  given  by 

2 

{ds)  =  dr  ‘dr  =  (a^  -  a^)  dQ^dQ^.  (3.6) 


0j  +<i0j 


"  r  ^  ^  ^  I 

I  ^1 

~~  ~  I 


02  +  ^02 


"I 

^  Is 


'2 


r 

''  a. 


Figure  3.1  Base  Vectors  and  Coordinate  Curves  [229] 


Defining  the  covariant  surface  metric  tensor  as 


S 


allows  one  to  write  (dsf  in  terms  of  the  covariant  surface  metric  tensor  as 

{ds)^  =  (3.8) 

Equation  (3.8)  is  called  the  first  fundamental  form  of  the  surface. 

Next,  consider  a  point  on  the  middle  surface  with  coordinates  and  a  unit  vector  t 
in  the  tangent  plane  at  this  point.  The  normal  curvature  associated  with  the  direction  deter- 

mined  by  t  is  given  by 

1 

-^ds  =  -da^  ■  t  ,  (3.9) 


1  da  ^ 


(3.10) 


If  one  substitutes  Eq  (3.5)  and  (3.6)  into  Eq  (3.10),  then  one  finds 


^  d7  -^^®1 

^  ^  Is  ^ 


(3.11) 


ds  ~  ^3,  Ids  '^^3,  Ids 


(3.12) 


where  a  comma  in  the  subscripts  implies  differentiation  with  respect  to  the  coordinate  fol¬ 
lowing  the  comma.  Substituting  Eqs  (3.11),  (3.12),  and  (3.8)  into  Eq  (3.10)  gives 


«,  (3  =  1 
2 


(3.13) 


a,  p  =  1 

The  quantity  can  be  defined,  such  that 
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(3.14) 


- ^  ^  ^  ^  ^  ^ 

^aP  “  a  ■  ^p  "  ^p  ■  *^3,  a  “  ^3  ‘  '^a,  p  ~  ^pa 
The  curvature  can  now  be  defined  as 

2 


i  _  3  =  1 

R  2 


(3.15) 


“a|3“"a“"|3 

a,  p  =  1 

where  bf^j^dQ^^dQ^  is  called  the  second  fundamental  form  of  the  surface.  Thus,  the  normal 
curvature  is  given  by  the  ratio  between  the  first  and  second  fundamental  forms. 

If  one  defines  the  coordinate  curves  of  Figure  3.1  to  be  lines  of  principal  curvature  of 
the  shell,  then  the  Gj  and  02  curves  are  mutually  orthogonal  families  of  curves  [126,  139]. 


In  this  coordinate  system,  the  lengths  of  the  basis  vectors  are  given  by 


a  =  ^ 

/  ^ 

a 

a  ^ 

/V  cc 

aj 

(3.16) 


where  the  A„  are  called  the  Lame  parameters  of  the  surface. 


Next,  define  mutually  orthogonal  unit  vectors  Cj ,  e^,  and  in  the  directions  of  the 
— ^  ^ 

base  vectors  a  j ,  aj ,  and  the  normal  vector  03 ,  respectively.  These  unit  vectors  are  given 


— > 

= 


(3.17) 


where  a  =  1,2. 


The  derivatives  of  the  orthonormal  unit  vectors  are  given  by  [126:8] 
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'2, 


1,  1  ~  A2  2^  ^\,2  -  Aj  ^^2 


1,2^ 


'2,  I'A^^l  ^2,2“  Aj  ^2‘^/?2^3 


(3.18) 


^3,  1  " 


^3,2  “  R^^2 


where  R^  and  i?2  radii  of  curvature  for  the  0j  =  constant  and  02  =  constant  curves 
respectively. 

If  one  now  considers  a  vector  field  v  (0j,  02)  on  the  middle  surface  of  the  shell,  then 

one  can  resolve  this  field  in  the  directions  of  the  orthonormal  base  vectors  e^,  e^,  and 
as  follows 


^  ^  ^ 

V  (0p02)  =  ve^+ve^  +  ve-^ 

Differentiating  Eq  (3.19)  with  respect  to  0|  and  02  gives 


(3.19) 


V  =  V.  e.-\-v  e. 

,a  i,a  I  I  i,  a 


(3.20) 


where  repeated  indices  imply  summation  and  Italicized  letter  subscripts  have  the  values 
1,2,3  and  Greek  letter  subcripts  have  values  1,2.  If  one  substitutes  Eq  (3.18)  for  the  deriv- 

atives  of  the  base  vectors  into  Eq  (3.20),  then  the  derivatives  of  the  vector  v  (0^^^,  0^)  are 
given  as  follows 


4,2->  -> 


^1  =  +  A7^2  -  ^^3  +  I  ^  1-  a7^1  f2  +  I  ^3.  1  +  1^3 


4,  -> 


■^2.1^  ■^2->|-> 


A/2/i+^^2+  A,  i?2"3h  +  l4.2  +  i?/2K3 


4^  H 


(3.21) 


One  can  show  that  certain  relationships  between  A|,  A2,  i?],  and  R2  must  be  specified. 
These  relationships  are  given  by  Codazzi's  equations 
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and  Gauss's  equation 


1 


(3.22) 


^1^2 


(3.23) 


3.2  Strain  Tensor  Definition 

In  Figure  3.3,  consider  the  displacement  of  a  body  in  a  three-dimensional  space  from 
its  original  undeformed  state  to  a  new  deformed  state  denoted  by  a  superscript  star.  The 
coordinates  yj,  y2,  and  are  chosen  to  form  an  orthogonal  curvilinear  coordinate  system. 
This  system  is  not  the  same  coordinate  system  as  the  two-dimensional  (0i,02)  system  of 

the  shell  midsurface.  In  the  (yj,  y2,  ys)  system,  the  original  length  (ds)^  of  the  line  M  to 
is  given  by 


ids)  =  g^jdyjy. 


(3.24) 


where  gy  is  the  metric  tensor  associated  with  the  undeformed  curvilinear  coordinate  sys- 


tern  (yi,y2  Js)-  The  components  of  gy  are  given  by  the  scalar  product  g.  •  gj . 

In  the  deformed  system  of  coordinates,  the  distance  {ds*)  from  point  M*  to  N*  is  given 


{ds^)  =  g..dy.*dy.* 


(3.25) 


If  we  use  a  Lagrangian  description  of  deformation,  we  attempt  to  express  all  variables 
in  terms  of  conditions  prior  to  deformation  [192].  From  Figure  3.2,  the  displacement  u 


of  point  M  and  the  derivatives  of  u  are  given  by 

u  =  r*  -r 


(3.26) 
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(3.27) 


du 


dr*  dr 


Figure  3.2 
Combining  Eqs  (3.24) 

Substituting  Eq  (3.27) 


Body  Before  and  After  Deformation  [792,  229] 
and  (3.25),  yields  the  strain  tensor  defined  as 

2Ty  =  (s*ij-gij) 

into  Eq  (3.28),  gives  the  strain  tensor  y^  as 


(3.28) 
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(3.29) 


du  ^  du  du  du 
'^ij  ~  dyj  '  dy.  ’*’  dy.  '  dyj 


The  orthogonal  base  vectors  {  g  j,  g2,  g^}  are  related  to  a  new  set  of  orthonormal  base 


vectors  {  Cj,  ^2’  ^3}  by  the  following  relationship 


Si 

h. 

(3.30) 


where  the  are  called  scale  factors  [192:118].  The  displacement  vector  u  can  be 
written  in  terms  of  ,  62,  and  at  point  M as  follows 


u  =  “3^3  • 

Substituting  Eq  (3.31)  into  Eq  (3.29)  produces 
^  ^ 

■ -5^  +  -  dy. 

Next  expanding  the  implied  summations  on  k,  I,  m,  and  n  over  their  values  of  1,  2,  and 
3,  to  get  the  result 

3(M^e^)  ^ 

=  Si  ■  dyj  (“1^1  +  “2^2  +  "3^3)  •  (3.33) 

->  ^  (W/^/)  ^  ^ 

'^Sj'  dy-  +  M2^2  “3^3) 

^  ^  ^  ^  ^  ^ 

+  ay.  (“1^1 +“2^2  +  “3^3)  •  ~a^(«l^l +W2^2  +  “3^3) 

Useing  the  relationships  of  Eqs  (3.17)  and  (3.18),  the  strain  components  y^,  for  shells, 

can  be  written  in  terms  of  the  displacement  components  and  Lame  parameters  [192:136- 
137]  as  follows 
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(3.34) 


du^  h^u^dh^ 

~  h2  5)^2'''  ^3  ^^3 

ifdu^  u^dh^'Y 


ifdu^  u^dhA2  ifdu^  u^dhA2 


^3^^3j 

3^2  h^u^dh^  h^u^dh^ 

^22  ~  h^  3yj  ^  h^  dy^ 

{( ^^2  ^^3^2  “3^^2V 
'^2['^^-^hYy^'^h^dyJ 

l(du^  “2^^2V  lf^^3  “2^^2V 


21^3^2  f^i^yij  21^3^2  ^3^>'3j 
3m2  h^u^dh^  h^U2^h^ 

^11  “  ^33^3'^  h^  dy^'^  h2  3^2 
l(^U2  “l^^3  u^dh^Y 

u^dh^Y  lf^«2  ^3^^3Y 


213^3  21^3^3  ^25^2 


^^23  “  2^ ^2 3^3  "^^33^2  “23^3  “33^2 
^^2  ^3^^3'l^  ^^2  ^^^3/^2  Ii^^h2 


■^21^3^3  /i25y2jl^3'2'^^l^^l '^^3^^3 

3^3  ^2^^2'1^  ^^3  ^^^3/^3  112^^2 


2[dy2  h^^y2)[^y2^  ^l^yi^  h2^y2 
ifdu^  M2^^2Y^“i  “3^^3l 


21^3^2  ^1^3^1X53^3  ^i53'i 


(3.35) 


(3.36) 


(3.37) 
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'^13  "  ■^^303;^  ^30};^ 

ll^  du^  u^dh^^l"  0Mj  u.^dh^ 

■^2[0y3  “/i^0>'J[0);j  ^  h^dy^'^  h^dy^ 
if  0^3  Mj0A^ V  0^3  u^dh^  u^dh^ 
■*■  2^03;^  “;z3 03^3  03;^  /z ^  0^^ 


u^dh^'V  du 


21,3^1  ^2  ^>^2  A  ^3^3  ^2^>'2 


u^dh^ 


3'i2  ~  2[^103;2  "^^203;^  “10^2  ^203;^ 

if  du^  M2^^2V  ^“1  “2^^!  “3^^! 

■^2[03;2~/i^0yJ1^03;j  h^dy^'^  h^dy^ 

l(^u^  u^dh^Ydu^  u^dh^  u^dh^ 


2(^03;^  ^2^3'2jl^3'2  ^1^3^!  ^3^3'3 


0Mo  u.dhAfdu^  u^dh 


"2  2 


(3.38) 


(3.39) 


2l,0>'i  ^3  ^3^3  A  ^3^2  ^3^3’3j 

For  a  shell  discussed  earlier,  the  Lame  parameters  Ag^,  a  =  1,2,  describe  the  two- 


dimensional  relationship  between  the  orthogonal  surface  base  vectors  a^  and  their 

— ^ 

orthonormal  counterparts  (refer  to  Eq  (3.17)).  For  the  strains  of  Eqs  (3.34)  -  (3.39),  the 
scale  factors  hi,  i  =  1 ,2,  describe  the  ^/irec-dimensional  relationship  between  the  orthogo- 

nal  base  vectors  g.  of  the  three-dimensional  orthogonal  curvilinear  coordinate  system  y, 

and  their  orthonormal  counterparts  c .  (refer  to  Eq  (3.30)).  For  a  two-dimensional  orthogo¬ 
nal  curvilinear  coordinate  system,  the  scale  factors  of  Eqs  (3.34)  -  (3.39)  become  [792] 


3^3  ^3 

/Zl=Ai  1-^  ^2~^2  ^3"^ 

V  3j  V  37 


(3.40) 


where  recalling  Eqs  (3.4)  and  (3.16),  we  have 
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->^1/2 

dr  dr 


■^1 


9r  dr 


2  1^502 


(3.41) 


Thus,  for  the  convenient  case  of  a  cylindrical  shell  with  radius  /?2  local  coordi¬ 
nates  01  =  x,  02  =  i',  z  described  in  orthogonal  space  with  global  coordinates  yi  =  jc,  ^2  =  s, 

^3  =  z,  the  position  vector  r  Cyi,y2>>’3)  would  be  given  by 


^ 

r  =  xe^  +  5^2  +  ze^ 


(3.42) 


and  the  Lame  parameters  reduce  to  Ai  =  A2  =  1.  For  the  same  shell  described  in  terms  of 
an  angle,  say  (|),  the  circumferential  coordinate  s  would  be  given  by  ds  =  R2d^.  In  this 


case,  dr  (yi,y2.3'3)  is  given  by 


dr  =  dxe^-k- R^d^e2  + dze^ 


(3.43) 


and  the  Lame  parameters  would  be  A}  =  1  and  A2  =  1.  For  the  case  of  a  spherical  shell 
with  radius  /?2  and  local  coordinates  0i  =  5},  02  =  S2,  z  described  in  an  orthogonal  space 

with  global  coordinates  yi  =  ^2  =  -^2’  )'3  =  position  vector  r  (y\,y2,y3)  would  be 


given  by 


r  =  +  j:2^2  ^^3  ’ 


(3.44) 


and  the  Lame  parameters  reduce  to  A}  =  A2  =  1.  For  the  same  shell  described  in  terms  of 
angles,  say  (|)i  and  ^2->  ih®  circumferential  coordinate  a  =  1,2  would  be  given  by  ds^  = 


Rd^a- case,  dr  Cyi,y2J3)  is  given  by 


^  ^  ^ 
dr  =  Rd^^e^+ Rd(^2'^2^ 


(3.45) 


and  the  Lame  parameters  would  be  A}  =  A2  =  /?. 


At  this  point,  it  is  important  to  realize  the  strain  components  of  Eqs  (3.34)  -  (3.39)  are 

— ^  ^  ^ 

related  to  the  orthogonal  basis  vectors  a^,  a^,  and  ,  which  change  in  magnitude  and 


direction.  This  strain  tensor  is  called  the  Green-Lagrange  strain  tensor  [229].  These  tenso- 
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rial  strain  components  must  be  converted  to  physical  components  in  order  to  complete  the 
analysis.  For  the  infinitesimal  linear  problem,  the  linear  parts  of  this  strain  tensor  can  be 
related  to  the  physical  strain  of  the  line  from  point  MtoN  [192:129].  The  change  in  length 
of  the  line  segment  from  M  to  N,  shown  in  Figure  3.3,  is  given  by 


■^MN 


f  '2-  2\ 

(ds*)  -  (ds) 


V 


(ds) 


(3.46) 


This  equation  can  be  written  in  terms  of  the  curvilinear  coordinates  yj,  y2-  and  as 
follows 


dyjdy^ 
^MN  ~  ds  ds 


(3.47) 


The  derivatives  appearing  in  Eq  (3.47)  can  be  written  in  terms  of  the  direction  cosines 


Zj,  I2,  and  I2  of  the  line  from  M  to  N relative  to  the  orthonormal  base  vectors  e^,  and 


e., .  These  direction  cosines  are  given  by 


dyr 


dy^ 

"I  ds’''2~  "'2  ds’''2>~  "'2  ds 

If  one  substitutes  Eq  (3.48)  into  Eq  (3.47)  and  expand  the  sununations,  then 

\2 


(3.48) 


f  1  ) 

^1 

2 

(h) 

2 

(  1  \ 

^3 

^MN  ~  ^11 

+  T22 

k^2) 

+  733 

(3.49) 


+  2y 


12 


v^i^2; 


+ 


13 


V^1^37 


+  2y, 


23 


^  I  I  ^ 

^2^3 

K^2^3J 


This  equation  can  be  written  interm  of  physical  strain  components  Ejj  as  follows 

“  ^11^1  ■'■^22^2  ■'■^33^3  ’ 

+  ^^13^1^3  ^^23^2^3 

where 
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^11  hs 

^11  “  ,2  ^22  “  ,2  ^33  “  ,2 

h.  hr, 

^  ^  ^  ,  (3.51) 

'^12  ^  ^13  ^23 

^n-  h^h^  ^12,-  h^h^  ^23-  h^h^ 


are  the  physical  components  of  strain  for  the  case  of  a  finite  displacement  U  defined  by 
Eq  (3.31)  [725,  792], 


3.3  Composite  Material  Analysis 

In  the  previous  sections  of  this  dissertation,  the  concept  of  strain  for  a  shell  in  an 
orthogonal  curvilinear  coordinate  system  were  presented.  Next,  the  subject  of  constitutive 
relations  are  discussed.  One  can  consider  the  material  of  a  composite  laminate  from  ami- 
croscopic  viewpoint  or  from  a  macroscopic  viewpoint  [77,  31,  94,  232].  For  this  research, 
the  macro-mechanical  behavior  of  the  laminate  is  assumed  sufficient  provided  stresses  are 
small  enough  to  assure  no  material  failure  occurs.  Thus,  the  material  of  each  lamina  is 
treated  as  a  homogeneous  anisotropic  material.  More  specifically,  we  shall  assume  the 
material  is  transversely  isotropic  (i.e.  one  plane  of  material  property  symmetry  [57.-35]). 
First,  however,  consider  an  orthotropic  material  system.  This  means  the  material  has  prop¬ 
erties  that  are  different  in  three  mutually  orthogonal  directions  with  three  mutually  perpen¬ 
dicular  planes  of  material  symmetry.  The  Cauchy  stress-strain  constitutive  relations  for  an 
orthotropic  material  are  written  in  matrix  form  as  follows  [94:35] 
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^11  ^12  ^13  0  0  0 

^12  ^22  ^23  0  0  0 

^13  ^23  ^33  0  0  0 

0  0  0  C44  0  0 

0  0  0  0  C55  0 

0  0  0  0  0 


(3.52) 


where,  for  orthotropic  materials,  the  non-zero  Cy's  are  given  by 
Cii  =  (I  E^/A 

^22  ~  “^13^31^  ^2^^ 

^33  ~  “^12^21^  ^3^^ 

^12“  (^21  ■’^31^23^^/^  ^  ^^12  ■'^13^32^  ^2^^^ 
^13“  ^'^31  “'^21^32^^!^^  ~  ("^13  “^12^23^  ^3^^ 

Crf^  —  (^32  12^31^  ^2^ ^  ~  ~ ^'71  ^  1 "?) 


23  ’'2ri3^""3' 


^44  “  ^23’  ^55  “  ^13’  ^66  “  ^12 


A  =  1-Vi2V2i-V23V32-V3iVj3-2V2iV32V^3 


(3.53) 


(3.54) 


The  terms  of  Eqs  (3.53)  and  (3.54)  are  not  all  independent.  The  relationship  between 
these  terms  are  given  by 


V..  V.. 

JJ _ E  ;  •  _  1  9  3 

^  A,  Zj  ^  . 

i  j 


(3.55) 


As  a  further  simplification,  if  the  material  properties  are  the  same  in  the  2-direction  as 
in  the  3-direction,  shown  in  Figure  3.3,  then  the  material  is  transversely  isotropic  [94:35]. 
For  this  type  of  material  there  is  no  distinction  between  properties  in  the  2-  and  3-direc- 

tions.  Thus,  E2  =  E^,  V21  =  V31,  V12  =  V13,  and  V23  =  V32.  With  this  assumption,  Eqs  (3.53) 
and  (3.54)  become 
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Cii  =  1^1  -V23 jE^/A,  C22  =  C33  =  (1 

^12  "  ^13  “  ^21  +V23)^i/A,  C23  =  (^23  “^12^21^  ^2^^ 

^44  =  ^23  “  ^13’  ^55  “  ^13’  ^66  ~  ^12 
where,  for  transversely  isotropic  materials,  A  is  given  by 

A  =  1 -2v  ^2^21  “^23“  ^^12^21^^23 

and  the  relationships  of  Eq  (3.55)  apply. 


,  (3.56) 


(3.57) 


ic 


K 


Figure  3.3  Material  Axes  for  a  Transversely  Isotropic  Lamina  [77 .-20] 


For  a  thin  flat  structural  memeber,  such  as  a  plate,  a  state  of  plane  stress  is  often 
assumed  [44]  where  013  =  023  =  O33  =  0.  In  this  research,  however,  the  effects  of  linear 
transverse  shear  deformation  are  considered.  Thus,  ai3  and  a23  are  not  assumed  to  be 
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zero.  The  direct  normal  stress,  G33,  however,  is  still  assumed  to  be  zero.  This  assumption 
is  necessary  to  reduce  the  three-dimensional  problem  to  a  two-dimensional  problem.  If 
G33  =  0  is  substituted  into  Eq  (3.52),  the  direct  transverse  normal  strain  becomes 


C  C 

_  iVi  ^ 

^33  ~  ~  C  ^11  ~  r  ^22 

C33  U33  zz 


(3.58) 


Thus,  rewriting  Eq  (3.52)  using  Eq  (3.58)  to  eliminate  £33,  yields 


^11 

Qn 

^12 

0 

0 

0 

^11 

^22 

^12 

^22 

0 

0 

0 

^22 

'*'23 

= 

0 

0 

Q44. 

0 

0 

2623 

^13 

0 

0 

0 

G44 

0 

^^13 

^'^12  J 

0 

0 

0 

0 

^55 

^  ^^12  J 

where 

^11  “  ^11  “^13'^^33  “  “^12’^21^ 

^22  “  ^22~^23'^^33  ~  ^2^  “^12^21^ 

^12  “  ^12  “^13^23^^33  “  ^21^2^  ^  ^ 
^44  =  ^13’  ^55  “  ^12 


To  form  a  structural  component,  the  lamina  are  assumed  to  be  perfectly  bonded 
together  with  their  fibers  oriented  at  a  particular  angle  with  respect  to  the  structure's  refer¬ 
ence  axis.  The  stiffness  contribution  of  each  lamina  in  the  laminate  can  be  determined. 
These  stiffnesses  must  first  be  transformed  to  a  common  reference  system  of  axes.  If  one 
assumes  the  kth  lamina's  fibers  are  all  in  the  same  direction  (say,  the  1 -direction  of  Figure 
3.3),  and  this  direction  is  at  an  angle  (j)  from  the  reference  axis  (say,  the  x  axis)  then  the 
constitutive  relations  in  the  reference  system  are  given  by 
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Qn  Qi2  0  0  016  8^ 

012  022  0  0  026 

=  0  0  244  245  0  ,  (3.61) 

0  0  245  Css  0 

k  [ciS  226  0  0 

where 

—  4  2  2  4 

Qn  =  <2nC0S  (t)  +  2((2j2  +  2(266)cos  (j)sin  (])  +  (222sin  (]) 

222  =  2iiSin'^(t)  +  2(2j2  +  22gg)  cos \ sin ^(j) +  222 sin 

2i2=  (2ii +222-4266)  cos  (l)sin^(j)  +  2,2  ( cos'^ct)  +  sin'^c])) 

2i6=  (2,1 -2,2- 2266)  cos^(t)sin(t)+ (2,2 -222 +  2266)  cos(l)sin% 

3  3  ■ 

226=  (2,1 -2,2-2266)  COS<t)Sin  ([)+  (2,2-222  +  2266)  cos  (t)sin(j) 

—  2  2 

244  =  244 cos  <l>  +  255Sin  ^ 

245  =  (244  -  055)  COS(t)Sin(t) 

“22 
255  =  244  sin  4) +  255  cos  4) 

In  Eqs  (3.61)  and  (3.62),  each  lamina  has  a  specific  orientation  of  fibers.  Thus,  each 
lamina  can  have  different  values  of  2jy  given  by  Eq  (3.62).  These  constitutive  relations  are 

valid  for  small  strains  where  the  material  behaves  as  a  linear  elastic  solid.  Equation  (3.58) 
relates  the  direct  normal  strain  £33  to  changes  in  the  direct  in-plane  strains  e, ,  and  £22  for 

033  =  0.  The  assumption  that  Eq  (3.58)  is  valid  for  an  arbitrary  laminated  composite  shell 
is  important  for  composite  shell  analysis.  Without  this  assumption,  the  stress  state  is  fully 
three-dimensional  and  the  reduced  computational  effort  of  the  two-dimensional  model  is 
lost.  With  the  assumption,  however,  the  two-dimensional  model  will  never  accurately  pre¬ 
dict  the  stress  distribution  within  the  shell,  since  a23  generally  will  not  be  zero  in  the  real 
structure.  Research  in  the  1960's  and  1970's,  by  many  investigators,  has  validated  the 
acceptability  of  this  assumption  for  certain  problems. 
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3.4  Transverse  Shear  Deformation 


When  a  thin  body  undergoes  a  small  (infinitesimal)  deformation,  material  points  on  a 
line  normal  to  the  middle  surface  of  the  body  will  move  relative  to  each  other,  as  shown  in 
Figure  3.4.  This  movement  results  in  rotation  and  warping  of  the  normal.  The  angle 
between  the  geometric  normal  to  the  midsurface  and  the  warped  normal  is  maximum  at 
the  midsurface  and  zero  at  the  upper  and  lower  surface.  For  a  linear  elastic  material  under- 


Figure  3.4  Shear  Deformation  of  a  Thin  Elastic  Body  [167:234] 


going  infinitesimal  displacement  (i.e.,  linear  strain  displacement  relation  hold),  this  angle 
of  deviation  is  equal  to  the  transverse  shear  strain.  The  distribution  of  transverse  shear 
strain  for  the  infinitesimal  linear  case  is  parabolic  through  the  thickness  of  a  flat  plate. 
Under  the  classical  Kirchhoff  assumption,  one  assumes  the  normal  (or  cross-section  of  a 
beam)  remains  normal,  straight,  and  inexstensible.  This  assumption  results  in  zero  trans¬ 
verse  shear  strain.  For  a  thin  shell,  where  h/R  «  1,  the  Kirchhoff  assumption  allows  accu- 
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rate  predictions  of  transverse  deflection  versus  load  for  small  displacements.  For  thick 

shells,  where  «  1,  or  when  anisotropic  material  properties  are  assumed,  transverse 
shear  effects  become  more  apparent.  Thick  shell  and  composite  shells  generally  will  show 
greater  transverse  deflection  for  a  given  load  when  the  effect  of  transverse  shear  is 
included  in  the  theoretical  model. 

3.4.1  First-Order  Transverse  Shear  Deformation  (FTSD)  Theories.  There  are  several 
ways  to  include  transverse  shear  deformation.  Transverse  shear  effects  can  be  included 
using  a  first-order  transverse  shear  deformation  (FTSD)  theory.  In  this  case,  material  lines 
originally  normal  to  the  midsurface  are  allowed  to  deviate  from  the  normal  to  the  shell 
midsurface  as  shown  in  Figure  3.5.  These  lines  remain  straight  and  inextensible.  Since  the 
angle  of  deviation  is  constant,  the  displacement  field  varies  linearly.  The  constant  angle 
also  implies  transverse  shear  strain  is  constant,  and  thus,  is  not  zero  at  the  upper  and  lower 
surfaces  of  the  shell.  This  inconsistent  distribution  results  in  an  overly  stiff  model  of  the 
structure.  This  stiffening  effect,  called  shear  locking,  becomes  more  pronounced  as  the 
shell  thickness  approaches  zero.  First-order  transverse  shear  theories  can  be  used,  pro¬ 
vided  some  artificial  corrections  are  made.  The  excessive  strain  energy  resulting  from  the 
constant  shear  strain  assumption  is  usually  reduced  by  multiplying  the  transverse  strains 
by  a  constant  factor  of  5/6  for  isotropic  materials.  Although  5/6  is  often  used  for  compos¬ 
ite  materials,  there  is  no  generally  accepted  method  of  determining  shear  correction  fac¬ 
tors  for  anisotropic  materials.  The  predicted  response  of  the  FTSD  model  is  sensitive  to 
the  values  of  shear  correction  factors.  Hence,  some  have  suggested  that  theories  of  com¬ 
posite  shells  should  not  depend  upon  any  numerical  factors  [18:698\. 

The  derivation  of  transverse  shear  deformation  theories  is,  generally,  based  on  writing 

the  displacement  vector  u  ,  of  Eq  (3.31),  as  a  function  of  the  thickness  coordinate  of  the 
shell.  According  to  Reddy  [i76],  this  approach  was  pioneered  in  1890  by  A.  B.  Bassett. 
According  to  literature  cited  by  Dennis  [48],  Bassett  expanded  the  displacment  compo¬ 
nents  in  an  infinite  power  series  as  shown  below 
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'3^3  =  0 


+  •••  ■  (3.63) 


3^3  =0 


Rs.m  3.5  Defo™a,i„„  of  Nopals  fa  FTSD  h  „ 

or  FTSD  and  HTSD  Theories 

This  displacement  fieid  wh 

''“7'  ^-ear  sPains  fa  «  Z — 
“O^taate  ,3.  This  „i„  ces„,t  in  a  „o„^ro  .33  “  "  “  «>o  'Rokness 
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terms  present  in  uj  could  be  neglected.  Thus,  the  displacement  field  of  Hildebrand  et  al. 
has  a  M3  displacement  function  that  does  not  vary  through  the  thickness  of  the  shell.  Theo¬ 
ries  based  upon  the  assumptions  of  Hildebrand  et  al.  [77]  are  called  first-order  shear  defor¬ 
mation  theories.  These  types  of  theories  were  extensively  studied  by  Reissner  and  Mindlin 

in  the  1940's  and  1950's  [124, 186]  for  plates,  and  hence,  are  often  called  Reissner-Mind- 
lin  theories.  For  a  shell,  the  FTSD  theory  is  given  by  the  following  displacement  field: 

=  u(l-y^/R^)  +\j/iT3 

1^2  =  V  ( 1  - 

u^  =  w 

where  the  five  degrees  of  freedom  (dof),  u,  v,  w,  \j/j,  and  \}/2,  are  functions  of  the  in-plane 
curvilinear  coordinates  and  y2- 

3.4.2  Higher-Order  Transverse  Shear  Deformation  (HTSD)  Theories.  Higher-order 
transverse  shear  deformation  (HTSD)  theories  generally  eliminate  the  need  for  shear  cor¬ 
rection  factors.  The  HTSD  theory  allows  the  normal  to  rotate  and  warp  as  shown  in  Figure 
3.5.  Some  HTSD  theories  also  allow  the  normal  to  change  length.  The  HTSD  theory  for  a 
flat  plate  produces  a  parabolic  distribution  of  shear  strain  as  shown  in  Figure  3.6.  This  dis¬ 
tribution  matches  the  exact  distribution  of  shear  strain  for  the  linear  infinitesimal  case.  The 
results  for  curved  shells,  however,  are  different  because  of  the  curvature  of  the  shell.  Due 
to  curvature  of  the  shell,  the  transverse  shear  strain  is  distorted  as  shown  in  Figure  3.6  by 
the  heavier  line  labeled  cubic  transverse  shear.  Since  the  small-strain  transverse  shear  dis¬ 
tribution  for  a  shell  is  a  cubic  function  of  the  thickness  coordinate,  the  displacement  field 
should  be  at  least  quartic  in  the  thickness  coordinate.  For  a  shell,  the  curvature  generally 
creates  coupling  between  in-plane  extension  and  bending  activity.  To  include  this  effect, 
one  needs  to  include  quartic  terms  in  the  displacement  field  or  include  nonlinear  strain  dis¬ 
placement  terms.  Assuming  a  general  quartic  displacement  field,  as  given  in  Eq  (3.65),  the 
derivation  of  a  quasi-nonlinear  HTSD  theory  for  a  shell  follows 
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,  (3.65) 


“2  ^2>  >"3)  =  ''(  '  “>’3/^1)  +  '*'2^3  +  ‘I'25’3  +  V3  +  ^24 


M3(yp  ^2^  = 


Parabolic  Transverse  Shear - 

Cubic  Transverse  Shear  - 

Figure  3.6  Parabolic  and  Cubic  Transverse  Shear  Distributions  for  a  Curved  Shell 


where  u  =  mCVi,>'2)>  v  =  v(Ji,3;2)’  ^  =  ^^1^2).  ¥a  =  Vabl  J2)-  <t>a  =  (t>a(>'l’>'2)>  Ya  = 
YaCyi>Y2)>  =  QaCyi’Y2)  degrees  of  freedom  defined  only  at  the  midsurface  of  the 

shell.  These  degrees  of  freedom  are  functions  of  the  in-plane  coordinates  yj  and  >2 
will  vary  from  point  to  point  on  the  shell's  midsurface.  For  the  shell  with  /ij  =  (1  -  y^IRi), 
h2  =  {l  -  y'ilR'}),  and  =  1,  along  with  the  displacement  field  of  Eq  (3.65),  the  linear  trans¬ 
verse  shear  strains  (given  by  the  first  line  of  Eqs  (3.38)  and  (3.39))  are  as  follows 
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I  du^  du^  d{\-y^/R^ 

'^13  ~  {\-y^/R^)  3);^  dy^ 

j  du^  0^2  d{\-y^/R^~ 

^23  =  7i~7^_0^+  0^;^ 

Substituting  Eq  (3.65)  into  Eq  (3.67)  yields 


(3.66) 


(3.67) 


%  -  ( 1  _ y^/R^)  |_3yj  +  '^2  2‘I’2>'3  +  [r^  p 


(3.68) 


(  2Y2  1  3  3®2  4 

+  1  ■^-♦®2l>'3  +  -^y3 


For  this  equation  to  be  zero  at  =  ±h/2  and  yield  a  parabolic  distribution  of  723,  the 
coefficients  of  odd  powers  of  73  must  cancel  each  other  or  be  equal  to  zero.  If  one  assumes 
<1)2  =  0  and  02  =  Y2/'R2  '^hese  coefficients  vanish  and  723  is  given  by 


1  0w  ^^2  4 

^23  =  1  -  yj/fi  J  2  "  ^^2>'3  +  W/i 

Evaluating  Eq  (3.69)  at  72  =  h/2  and  solving  for  72  gives 


(3.69) 


4IL  _  (^  +  4/ 


(3.70) 


For  a  shell  with  radius  R2  no  smaller  than  five  times  the  thickness  h,  the  term  h2lR'i  in 


Eq  (3.70)  is  less  than  or  equal  to  1/400.  If  one  ignores  this  term,  then  72  is  given  by 

4  (  dw  \ 


4  f  dw 

^2  =  "4X534  ■"'^2 


(3.71) 


Similarly,  7j  can  be  found.  If  one  substitutes  Eq  (3.71)  and  (1)2  =  02  =  0  and  similar  rela¬ 
tions  for  (I)],  7i,  and  Oj  into  Eq  (3.65),  the  final  form  of  the  displacement  field  of  a  third- 
order  quasi-nonlinear  transverse  shear  deformation  theory  is  obtained 
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Ml  (yp}'2’>'3)  =  M 


1  - 


f 


M2  (jp  3^2’ >’3)  = 


1- 


R 

R 


\) 

\ 


+V3-r2 

3h 


+ 


2J 


'i’.y,- 


3h 


^  3w 

U^i 

^  3w 

U}^2 


+  'F 


1  ^3 


+  4^. 


>^3 


M3(yp}^2^  = 


(3.72) 


This  third-order  displacement  field  has  two  additional  degrees  of  freedom  not  present 
in  the  first-order  thoery.  These  two  degrees  of  freedom  are  the  differentials  of  transverse 
displacement  w.  The  third-order  theory  allows  the  slopes  of  the  elastic  curve,  vy,-,  to  be  dif¬ 
ferent  from  the  bending  angles,  11/, •.  These  differences  are  directly  related  to  the  transverse 
shear  strains  of  the  structure. 


3.5  The  Mathematical  Theory  of  Plasticity 

The  object  of  this  section  is  to  provide  a  theoretical  description  of  the  relationship 
between  stress  and  strain  for  a  material  which  exhibits  an  elasto-plastic  response.  In 
essence,  plastic  behavior  is  characterized  by  an  irreversible  straining  which  is  not  time 
dependent  and  which  can  only  be  sustained  once  a  certain  level  of  stress  has  been  reached. 
In  this  section  the  basic  assumptions  and  associated  theoretical  expressions  for  a  general 
continuum  are  shown.  For  a  more  complete  development  see  [79,  83,  168],  In  order  to  for¬ 
mulate  a  theory  which  models  elasto-plastic  material  deformation,  three  requirements 
must  be  met: 

•  An  explicit  relationship  between  stress  and  strain  must  be  formulated  to  describe 
material  behavior  under  elastic  conditions,  i.e.,  before  the  onset  of  plastic  deformation. 

•  A  yield  criterion  indicating  the  stress  level  at  which  plastic  flow  commences  must 
be  postulated. 

•  A  relationship  between  stress  and  strain  must  be  developed  for  post-yield  behavior, 
i.e.,  when  the  deformation  is  made  up  of  both  elastic  and  plastic  components. 

Before  the  onset  of  plastic  yielding,  the  relationship  between  stress  and  strain  is  given 
by  the  standard  linear  expression.  Note:  Einstein's  summation  convention  is  employed. 
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a..  =  D..,  , 

ij  ijkl  kl 


(3.73) 


where  Cy  and  are  the  stress  and  strain  components  respectively  and  Z)y^/  is  the  tensor  of 
elastic  constants  which  for  an  isotropic  material  has  the  explicit  form 

^ijkl  ~  ^^ij^kl'^^^ik^jl'^^^ifijk 

where  1  and  m  are  the  Lame  constants  and  dy  is  the  Kronecker  delta  function  defined  by 


fl  if 

^ij  ■  I  0  if 


I  =  J 


(3.75) 


3.5.1  The  Yield  Criteria:  The  yield  criteria  determines  the  stress  level  at  which  plastic 
deformation  begins  and  can  be  written  in  the  general  form 


/(O.^.)  =k{Y)  , 


(3.76) 


where /is  some  function  and  k  a  material  parameter  to  be  determined  experimentally.  The 
term  k  may  be  a  function  of  a  hardening  parameter  k  discussed  later  in  Section  3.5.2.  On 
physical  grounds,  any  yield  criteria  should  be  independent  of  the  orientation  of  the  coordi¬ 
nate  system  employed  and  therefore  it  should  be  a  function  of  the  three  stress  invariants 
only 


J,  =  O.. 

1  ii 


J  r\  —  .  .0^  .  . 

2  2  ij  ij 


Jr.  —  • 

3  J  IJ  jk  kl 


(3.77) 


Experimentally  observations,  notably  by  Bridgeman  [27],  indicate  that  plastic  defor¬ 
mation  of  metals  is  essentially  independent  of  hydrostatic  pressure.  Consequently,  the 
yield  function  can  only  be  of  the  form 


=  k{K)  , 

where  Jj  and  73  are  the  second  and  third  invariants  of  the  deviatoric  stresses. 


(3.78) 


0'..  =  G..-o6..a,, 
i]  ij  3  ij  kk 


(3.79) 


Most  of  the  various  yield  criteria  that  have  been  suggested  for  metals  are  now  only  of 
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historic  interest,  since  they  conflict  with  experimental  predictions.  The  two  simplest 
which  do  not  have  this  fault  are  the  Tresca  and  the  von  Mises  criteria. 

The  Tresca  Yield  Criteria  (1864) 

This  states  that  yielding  begins  when  the  maximum  shear  stress  reaches  a  certain 
value.  If  the  principal  stresses  are  S|,  S2  ,  S3  where  >  02  ^  ctj  >  0  then  yielding  begins 
when 

-O3  =  y(K)  ,  (3.80) 

where  7  is  a  material  parameter  to  be  experimentally  determined  and  which  may  be  a 
function  of  the  hardening  parameter  K.  By  considering  all  other  possible  maximum  shear¬ 
ing  stress  values  (e.g.  S2  -  s^  if  02  ^  G3  >  Oj )  it  can  be  shown  that  this  yield  criteria  may 
be  represented  in  the  S1S2S3  stress  space  by  the  surface  of  an  infinitely  long  regular  hexag¬ 
onal  cylinder  as  shown  in  Figure  3.7.  The  axis  of  the  cylinder  coincides  with  the  space 
diagonal,  defined  by  points  Sj  =  S2  =  S3,  and  since  each  normal  section  of  the  cylinder  is 
identical  (due  to  the  assumption  that  hydrostatic  stress  does  not  influence  yielding),  the 
yield  surface  is  represented  geometrically  by  projecting  it  onto  the  so-called  7t-plane,  Gj  + 

CT2  -t-  03  =  0  as  shown  in  Figure  3.8  (a).  When  the  yield  function /depends  on  J2  and  ^3 
alone  it  can  be  written  in  the  form/(Gj-(J2’  a  two-dimensional  plot  of 

the  surface/ =  k  is  then  possible  as  shown  in  Figure  3.8(b).  It  can  be  shown  generally  [79, 
168)  that  yield  surfaces  must  be  convex  and  that  they  must  contain  the  stress  origin. 
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CTl  +  02  +  0*3  =  U 


^  Space  Diagonal 

\  <^1  =  ^^2  =  <^3  =  C 


Tresca 


/i  <^2 


/  ^  ^  von  Mises 

/ 

Figure  3.7  Geometrical  Representation  of  the  Tresca  and  von  Mises  Yield  Surfaces  in 

Principal  Stress  Space 


.  von  Mises. 


iC2  Oj 
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The  von  Mises  Yield  Criteria  ( 1913) 


Von  Mises  suggested  that  yielding  occurs  when  J2  reaches  a  critical  value,  or 


'  M/2 

J^j  =  k(K)  ,  (3.81) 


in  which  A:  is  a  material  parameter  to  be  determined.  The  second  deviatoric  stress  invari- 
ant,  J2  is  explicitly  written  as 


'  1  '  '  Ir  2  2  2-| 


1  r  '2  '2  '2” 

■X  <5  +0  +0  , 

2  L  X  y  z  J 


'2  '2  '2 

+  a  +0  +  G 

xy  yz  Jcz 


.  (3.82) 


The  yield  criteria  in  Eq  (3.81)  is  in  alternate  form 


where 


(3.83) 


lit  '  'y/2 

and  a  is  termed  the  effective  stress.  Some  physical  insight  into  the  definition  of  ct  is 
shown  in  Section  3.5.2  where  the  case  of  uniaxial  yielding  is  considered.  There  are  two 
physical  interpretations  of  the  von  Mises  yield  condition.  Nadai  (1937)  introduced  the 
parameter  octahedral  shear  stress  ,  which  is  the  shear  stress  on  the  planes  of  a  regular 
octahedron,  the  apices  of  which  coincide  with  the  principal  axes  of  stress.  The  value  of 
is  related  to  J2  by 


•  (3.85) 

Thus,  yielding  can  be  interpreted  to  begin  when  reaches  a  critical  value.  Hencky 
(1924)  pointed  out  that  the  von  Mises  law  implies  that  yielding  when  the  (recoverable) 
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elastic  energy  of  distortion  reaches  a  critical  value. 

Figure  3.7  shows  the  geometrical  interpretation  of  the  von  Mises  yield  surface  to  be  a 
circular  cylinder  whose  projection  onto  the  7i-plane  is  a  circle  of  radius  JlkdiS  shown  in 
Figure  3.8(a).  The  two  dimensional  plot  of  the  von  Mises  yield  surface  is  the  ellipse 
shown  in  Figure  3.8(b).  A  physical  meaning  of  the  constant  k  can  be  obtained  by  consider¬ 
ing  the  yielding  of  materials  under  simple  stress  states.  The  case  of  pure  shear  (CTj  =  -(52, 

a3  =  0)  requires  on  use  of  Eqs  (3.81)  &  (3.83)  that  k  must  equal  the  yield  shear  stress. 

Alternatively  the  case  of  uniaxial  tension  (a2  =  03  =  0)  requires  that  J2)k\&  the  uniaxial 
yield  stress. 

The  Tresca  yield  locus  is  a  hexagon  with  distances  of  J (2/3)  Y  from  origin  to  apex 

on  the  7t-plane  whereas  the  von  Mises  yield  surface  is  a  circle  of  radius  ^  k.  By  suitably 
choosing  the  constant  Y,  the  criteria  can  be  made  to  agree  with  each  other,  and  with  exper¬ 
iment,  for  a  single  state  of  stress.  This  may  be  selected  arbitrarily;  it  is  conventional  to 

make  the  circle  pass  through  the  apices  of  the  hexagon  by  taking  the  constant  Y=  J3k,  the 
yield  stress  in  simple  tension.  The  criteria  then  differ  most  for  a  state  of  pure  shear,  where 

the  von  Mises  criterion  gives  a  yield  stress  2/ 1.5  times  that  given  by  the  Tresca  cri¬ 
terion.  For  most  metals,  von  Mises'  law  fits  the  experimental  data  more  closely  that 
Tresca's,  but  Tresca's  criteria  is  simpler  to  use  in  theoretical  applications. 

3.5.2  Work  or  Strain  Hardening:  After  initial  yielding,  the  stress  level  at  which  further 
plastic  deformation  occurs  may  be  dependent  on  the  current  degree  of  plastic  straining. 
Such  a  phenomenon  is  termed  work  hardening  or  strain  hardening.  Thus,  the  yield  surface 
will  vary  at  each  stage  of  the  plastic  deformation,  with  the  subsequent  yield  surfaces  being 
dependent  on  the  plastic  strains  in  some  way.  Some  alternative  models  which  describe 
strain  hardening  in  a  material  are  shown  in  Figure  3.9.  A  perfectly  plastic  material  is 
shown  in  Figure  3.9(a)  where  the  yield  stress  level  does  not  depend  in  any  way  on  the 
degree  of  plasticity.  If  the  subsequent  yield  surfaces  are  a  uniform  expansion  of  the  origi¬ 
nal  yield  curve,  without  translation,  as  shown  in  Figure  3.9(b),  the  strain-hardening  model 
is  said  to  be  isotropic.  Alternatively,  if  the  subsequent  yield  surfaces  preserve  their  shape 
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and  orientation  but  translate  in  the  stress  space  as  a  rigid  body  translate  in  the  stress  space 

as  a  rigid  body  as  shown  in  Figure  3.9(c),  kinematic  hardening  is  said  to  take  place.  Such  a 
hardening  model  demonstrates  the  experimentally  observed  Bauschinger  effect  on  cyclic 
loading. 

For  some  materials,  notably  soils,  the  yield  surface  may  not  strain  harden  but  strain- 
soften  instead,  so  that  the  yield  stress  level  at  a  point  decreases  with  increasing  plastic 
deformation.  Therefore,  for  an  isotropic  model,  the  original  yield  curve  contracts  progres¬ 
sively  without  translation.  Consequently  yielding  implies  local  failure  and  the  yield  sur¬ 
face  becomes  a.  failure  criteria. 


Figure  3.9  Mathematical  Models  for  Representation  of  Strain 


The  progressive  development  of  the  yield  surface  can  be  defined  by  relating  the  yield 
stress  k  to  the  plastic  deformation  by  means  of  the  hardening  parameter  K.  This  can  be 
done  in  two  ways.  First,  the  amount  of  work  hardening  is  defined  as  a  function  of  the  total 
plastic  work,  Wp  only.  Then, 
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where 


K  =  W 


=  K(' 


(3.86) 


(3.87) 


in  which  are  the  plastic  components  of  strain  occurring  during  a  strain  increment. 

Alternatively,  k  can  be  related  to  a  measure  of  the  total  plastic  deformation  termed  the 
effective  plastic  strain  which  is  defined  incrementally  as 


(3.88) 


de  =  h\  dzr.W  Je" 


A  physical  insight  of  this  definition  is  provided  in  Section  3.5.2  where  uniaxial  yield¬ 
ing  is  considered.  For  situations  where  the  assumption  that  yielding  is  independent  of  any 

hydrostatic  stress  is  valid,  dE^--  =  0  and  hence  =  Je^-.  Consequently  Eq  (3.88) 


becomes 


Then  the  hardening  parameter,  k,  is  assumed  to  be  defined  as 

-P 

K  =  E  , 


(3.89) 


(3.90) 


where  e  is  the  result  of  integrating  de  over  the  strain  path.  This  behavior  is  termed 
strain  hardening.  Only  an  isotropic  hardening  model  is  discussed. 

Stress  states  for  which/=  k  represent  plastic  states,  while  elastic  behavior  is  character¬ 
ized  by/<  At  a  plastic  state, /=  k,  the  incremental  change  in  the  yield  function  due  to  an 
incremental  stress  change  is 

II  »' 
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Surface,  f  =  k 


Figure  3.10  Geometrical  Representation  of  the  Normality  Rule  of  Associated  Plasticity. 
Then  if: 

df<0  elastic  unloading  occurs  (elastic  behavior)  and  the  stress  point  returns  inside  the 
yielding  surface 

df=0  neutral  loading  (plastic  behavior  for  a  perfectly  plastic  material)  and  the  stress 
point  remains  on  the  yield  surface 

df  >  0  plastic  loading  (plastic  behavior  for  a  strain  hardening  material)  and  the  stress 
point  remains  on  the  expanding  yield  surface. 

It  can  also  be  shown  [79,  83,  168'\  that,  for  a  stable  material  the  initial  and  all  subse¬ 
quent  yield  surfaces  must  be  convex. 

3.5.3  Elasto-plastic  Stress-Strain  Relation:  After  initial  yielding,  the  material  behavior 
will  be  partly  elastic  and  partly  plastic.  During  any  increment  of  stress,  the  changes  of 
strain  are  assumed  to  be  devisable  into  elastic  and  plastic  components,  so  that 
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(3.92) 


dz..  =  dE^..  +  d£^. 

U  iJ  U 

The  elastic  strain  increment  is  related  to  the  stress  increment  by  Eq  (3.73).  One  can 
decompose  the  stress  terms  into  deviatoric  and  hydrostatic  components 


^  e  ‘‘^ij  (1-2V),  ^ 


(3.93) 


where  E  and  v  are  respectively  the  elastic  modulus  and  Poisson's  ratio  of  the  material. 

In  order  to  derive  the  relationship  between  the  plastic  strain  component  and  the  stress 
increment,  a  further  assumption  on  the  material  behavior  must  be  made.  In  particular,  it 
will  be  assumed  that  the  plastic  strain  increment  is  proportional  to  the  stress  gradient  of  a 
quantity  termed  the  plastic  potential  Q,  so  that 

_ 


d£..  =  dXj^ 
ij  do.. 

ij 


(3.94) 


where  dX  is  a  proportionality  constant  termed  the  plastic  multiplier.  A  theoretical  basis 
for  this  assumption  is  developed  in  Ref  [79].  Eq  (3.94)  is  termed  the/Zow  rule  since  it  gov¬ 
erns  the  plastic  flow  after  yielding.  The  potential  Q  must  be  a  function  of  J2  and  73  but  as 
yet  it  cannot  be  determined  in  its  most  general  form.  However,  the  relation/=  Q  has  a  spe¬ 
cial  significance  in  the  mathematical  theory  of  plasticity,  since  for  this  case  certain  varia¬ 
tional  principles  and  uniqueness  theorems  can  be  formulated.  The  identity  f=Qisa  valid 
one  since  it  was  postulated  that  both  are  functions  of  J2  and  73  and  such  an  assumption 


gives  rise  to  an  associated  theory  of  plasticity.  In  this  case,  Eq  (3.94)  becomes 

ij 


(3.95) 


and  is  termed  the  normality  condtion  since  df/d<J.j  is  a  vector  directed  normal  to  the  yield 

surface  at  the  stress  point  under  consideration  as  shown  in  Figure  3.10.  It  is  seen  that  the 
components  of  the  plastic  strain  increment  are  required  to  combine  vectorially  in  n-dimen- 
sional  space  to  give  a  vector  which  is  normal  to  the  yield  surface.  For  the  particular  case  of 

f=h 
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(3.96) 


3/  _  _  ' 

da..  ~  da..  ~ 

i]  ij 

Then  Eq  (3.95)  becomes 

/ 

dE^.j  =  dXa.j  ,  (3.97) 

which  are  known  as  the  Prandtl-Reuss  equations  [79]  and  have  been  extensively 
employed  in  theoretical  work.  Experimental  observations  indicate  that  the  normality  con¬ 
dition  is  an  acceptable  assumption  for  metals.  Thus,  using  Eqs  (3.92),  (3.93),  and  (3.94), 
the  complete  incremental  relationship  between  stress  and  strain  for  elasto-plastic  deforma¬ 
tion  becomes 


(l-2v)„  ,  „  ' 

dz..  =  -T, —  + - - o..da,,  +dXa.. 

ij  2|l  E  ij  kk  ij 


(3.98) 


3.5.4  Uniaxial  Yield  Test  on  a  Strain-hardening  Material:  Consider  the  uniaxial  testing 
of  an  elasto-plastic  material  which  produces  the  stress-strain  curve  shown  in  Figure  3.11. 
The  behavior  is  initially  elastic  characterized  by  an  elastic  modulus  E  until  yielding  com¬ 
mences  at  the  uniaxial  yield  stress  (Sy.  Then  the  material  response  is  elasto-plastic  with  the 
local  tangent  to  the  curve  continually  varying  and  is  termed  the  elasto-plastic  tangent 
modulus,  Ej.  The  hardening  law  k  =  k  (k)  could  just  as  easily  be  expressed  in  terms  of 

the  effective  stress,  overline  sigma  (since  it  is  proportional  to  J2  )  to  give,  for  the  strain 
hardening  hypothesis 


'  -P 

a  =  H  {Z  )  ,  (3.99) 

and  differentiating  yields 

da  '  -P 

—  =  H  (Z)  .  (3.100) 

dz 
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For  the  uniaxial  case  under  consideration  aj  =  a,  aj  =  a2  =  0  and  then  from  Eq  (3.84) 

l3f  '  'V/2 

If  the  plastic  strain  increment  in  the  direction  of  loading  is  de^ ,  then  and 

since  plastic  straining  is  assumed  to  be  incompressible,  Poisson's  ration  is  effectively  0.5 


and  de2  =  de^  =  -  (1/2)  dz^ .  Then  from  Eq  (3.89),  the  effective  plastic  strain  becomes 


-P  _  2/ 

J3I 


P  P 
8  . 8  . 
IJ  U 


V/2 

=  dz 


) 


(3.102) 


Eqs  (3.101)  &  (3.102)  explain  the  apparent  arbitrary  constants  employed  in  the  defmi- 
-P 

tion  of  a  and  8  ,  since  these  terms  are  required  to  become  the  actual  stress  and  strain  for 
uniaxial  yielding.  By  using  Eqs  (3.101)  and  (3.102),  Eq  (3.100)  becomes 
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1 


.(3.103) 


'  -P 

H  (E)  = 


da 


da 


de-de  (de/da-dz^/da) 


1  -  E^/E 


Thus,  the  hardening  function  H’  can  be  determined  experimentally  from  a  simple 
uniaxial  yield  test. 

3.5.5  Matrix  Formulation:  The  theoretical  expressions  developed  previously  are  now 
converted  into  matrix  form  [235,  238].  The  yield  function,  first  defined  in  Eq  (3.76),  can 
be  rewritten  as 


f(a)  =  k(K)  ,  (3.104) 

where  a  is  the  stress  vector  and  k  is  the  hardening  parameter  which  governs  the  expansion 

of  the  yield  surface.  In  particular,  from  Eqs  (3.86)  and  (3.87),  dK  =  for  the  work 
hardening  hypothesis  and  from  Eq  (3.90),  dK  =  for  the  strain  hardening  hypothesis.  If 
Eq  (3.104)  is  rearranged,  the  result  is 

F(a,K)  =f(a)-k{K.)  =0  (3.105) 

If  Eq  (3.105)  is  differentiated,  one  obtains 

3F 

dF  =  +  =  0  ,  (3.106) 


or 


{a}  da-AdX  =  0 


with  the  definitions 


T  dF 


dF  dF  dF  dF  dF  dF 


da  ’  da  ’  da  ’  dx  ’  dx  ’ 

X  y  z  yz  xz  xz. 


and 


i'kd\i*' 

The  vector  {a}  is  termed  the,  flow  vector.  Eq  (3.98)  is  rewritten  as 

'da 


^  -  ~d%dK^'^ 


1  dF 

dE  =  [D]  da  +  dX^ 


(3.107) 


(3.108) 


(3.109) 


(3.110) 
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where  [D]  is  the  usual  matrix  of  elastic  constants.  Premultiplying  both  sides  of  Eq  (3.110) 
with  =  {a}^[D]  and  eliminating  {a]^da  by  the  use  of  Eq  (3.107),  we  obtain  the 

plastic  multiplier  dX  to  be 

1  ■*  T 

dX  =  - 7^ - {a}  {dj^}dE  .  (3.111) 

[A+{rt}  [D]{a}] 

Or  substituting  Eq  (3.111)  into  Eq  (3.110),  we  obtain  the  complete  elasto-plastic  incre¬ 
mental  stress-strain  relation  to  be 

{do}  =  [D  ]  {dE}  ,  (3.112) 

with 

{dj^}  {dj^}^ 

[D^^]  =  [D]  - - - ,  {dj^}  =  [D]  {fl}  .  (3.113) 

A  +  {dj^}  {a} 

The  remaining  discussion  centers  on  determining  the  explicit  form  of  the  scalar  term, 
A.  The  work  hardening  hypothesis  is  more  general  from  a  thermodynamic  viewpoint  [25] 
than  the  strain  hardening  hypothesis  and  is  employed  in  this  discussion.  Thus, 

dK  =  {o}  {dE^} 

Eq  (3.105)  is  rewritten  in  the  form 

F(a,  K)  =  /(a)  -aj,(K)  =  0 

since  the  uniaxial  stress,  ay  =  73  K.  Thus,  from  Eq  (3. 109) 

1  0/r  idOy 

^  -  ~dXdYi^^  -  dX  dK 

Note  that  the  full  differential  may  be  employed  in  the  last  term  since  Gy  is  a  function  of 
K  only.  Employing  the  normality  condition  in  Eq  (3.114)  to  express  de^,  we  have 

dK  =  {o}^{dE^}  =  {o}^dX{a}  =dX{a}^{o}  .  (3.117) 


(3.114) 

(3.115) 

(3.116) 
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Or,  for  the  uniaxial  case  a  =  a  =  ay  and  =  dz  where  a  and  e  are  respectively  the 
effective  stress  and  plastic  strain,  Eq  (3.117)  becomes 

Jk  =  {a^} 

Also,  from  Eq  (3.100)  we  have 

H' 

Using  Euler's  theorem  [144:228]  applicable  to  all  homogeneous  functions  of  order  one, 
we  can  write  from  Eq  (3. 1 15) 

Or,  from  Eq  (3.108) 

=  Gy  (3.121) 

If  Eqs  (3.119)  and  (3.121)  are  substituted  into  Eqs  (3.114)  &  (3.116),  one  obtains 


{dl^}  =  dX{a}^  {G} 


(3.118) 


dG 

de  de 


(3.119) 


dX  =  dE 
A  =  H' 


(3.122) 


Thus,  A  is  obtained  to  be  the  local  slope  of  the  uniaxial  stress/plastic  strain  curve  and  can 
be  determined  experimentally  from  Eq  (3.103). 


3.6  Anisotropic  Elastic-Plastic  Theory 

The  formulation  of  the  stress-strain  relations  for  anisotropic  material  proceeds  in  a 
similar  manner  to  the  isotropic  case  (see  Ref  [61]  for  complete  development).  The  plastic 
potential  function  (effective  stress)  is  defined  as  [61]\ 
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(3.123) 


^  -  ^12^^11  ^22^  ■*'^23  ^*^22  ^33^ 

+  (^33  “^11^  ■*■  ^^44^23  ■'■  ^“55^13  ■*'  ^^66^12 

where  a^'s  are  parameters  whose  values  are  characteristic  of  the  present  state  of  anisot¬ 
ropy.  It  should  be  noted  that  no  linear  terms  are  included  in  the  definition  of  the  effective 
stress.  This  is  tantamount  to  assuming  the  material  exhibits  no  Baushinger  effect  and  the 
subsequent  yield  loci  will  be  concentric  with  the  initial  yield  surface.  The  subscripts  1,2,3 
indicate  that  the  stress  tensor  is  referred  to  the  principal  material  axes.  Hill  [79]  has 
shown,  from  plastic  work  considerations,  that  the  plastic  strain  increment  is  found  from 
the  equation 


dF(o..) 

d£..  =  — 5— - dX 

ij  da.. 

u 

in  much  the  same  manner  as  the  isotropic  case.  Carrying  out  the 
rewriting  the  result,  the  following  set  of  equations  are  obtained 


(3.124) 
differentiation  and 


II 

^^11^11  “  ^12^22  “  ^31^33^ 

(3.126a) 

^^22  ~ 

(^22*^22  “  ^23^33  “  ^12^lP 

(3.126b) 

t/833  = 

(^33^33  “  ®^31  ^11  “  ^23^22^ 

(3.126c) 

^^23  “  2^44^23^^ 

(3.126d) 

£/8i3  = 

(3.126e) 

d8i2  =  20C66^12^^ 

(3.126f) 

The  conditions  of  incompressibility,  or  constant  volume,  in  plastic  deformation  are 
applied. 


(3.125) 


and  the  relations  between  the  tty  parameters  are  developed.  To  satisfy  the  condtion  of 
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constant  volume  in  plastic  deformation,  the  tty's  must  satisfy  the  following  equations 


a 

a 

a 


11 

22 

33 


-  + 

=  a23  +  aj2 


-  +  a23 


(3.126) 


Experimental  investigations  of  Hill's  theory  of  anisotropic  plasticity  have  been  con¬ 
ducted  by  several  investigators  [68,  95, 122],  A  very  thorough  experimental  investigation 
of  Zircaloy-2,  which  is  highly  anisotropic,  was  undertaken  by  Mehan  [122].  The  results  of 
this  investigation  are  listed  in  Lubahn  and  Felgar  [117].  From  the  results  of  Mehan's  work 
it  can  be  seen  that  the  anisotropic  parameters  are  not  quite  constant  but  the  variation  is  rel¬ 
atively  small.  If  the  anisotropic  parameters  are  assumed  to  be  constants,  they  may  be  eval¬ 
uated  from  Eq  (3.128).  Let  the  value  of  the  effective  stress  at  which  the  material  deforms 
plastically  equal  to  K.  The  anisotropic  parameters  may  be  evaluated  by  letting  all  stress 
components  equal  zero  except  one.  Thus, 


“ii  ~  ^12  ^31  “  I  r 


-T 


K 


-f-  OCio  — 


22  “  ^23  ^^12  ”  I  Y, 


OCoT  —  (Xo,  -I-  (X/.,0  — 


33  “  "^31  ^23  “  I  Y. 


22' 

K 


33 


If  K 


^44  “  3 


V^23 


(3.129a) 

(3.129b) 


(3.129c) 


(3.129d) 


\(  K  f 

«55  =  Ay^J  ’ 

If  K  f 

«66  =  -3[y;J  •  (^•129f) 


The  Yij  values  are  the  yield  stresses  in  each  of  the  given  directions  indicated  by  the  sub¬ 
scripts. 
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To  completely  define  the  plastic  stress-strain  increment  relations,  dX,  the  scalar  factor 
of  proportionality,  must  be  evaluated.  The  relation  defining  dX  may  be  found  by  investi¬ 
gating  the  increment  of  plastic  work  expressions.  For  a  plastically  deformed  body,  the 
increment  of  plastic  work  per  unit  volume  is: 

■  (3.127) 

By  substituting  for  the  strain  increments  from  Eqs  (3.126a)  -  (3.126f),  Eq  (3.130),  in 
expanded  form,  becomes: 


<iW^  =  -  a^2^22 ~  ^31^33^ 

-I-  0^2  (^22^22  ~  ^23^33  “  ^12^11^ 

+  0^3  -  0C3jG^^  -  ^23^21) 

+  2G23  ( (3/2)  Ot^cy23^  ^^13  ^  ^55^13^ 

^^12  ^  ^66^12^ 


(3.128) 


Equation  (3.131)  can  be  simplified,  reducing  to 


dv/ 


-2 

G  dX 


(3.129) 


The  increment  of  effective  plastic  strain  is  defined  by  the  equation 
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-p. 


1 


(dE  )  =  ^ 

G  L 


^121  ^23^^  11  ^31  ^^22 


(3.130) 


+  ^  ^£22  OC  j2^£33 


■*■“311^12^^33  “23^^11 


\21 


■*■  3 


^  ,  P 

V^^23 


a 


+ 


P  ^ 
13  j 


dE: 


12, 


44 


a 


55 


a 


66  J 


where  G  =  (X12OC23  +  06230631  +  6X310612-  Hu  [55]  has  shown  that: 


dX  = 


dE 


(3.131) 


Substituting  for  ctX  in  Eq  (3.134)  into  Eq  (3.132)  leads  to  the  differential  work  expression 

d^  =  adE  (3.132) 

Hill  has  shown  that  if  there  is  a  functional  relationship  existing  between  the  plastic  work 
and  the  effective  stress,  there  also  exists  a  functional  relation  between  the  effective  stress 
and  the  effective  strain.  The  dX  constant  is  next  submitted  into  Eqs  (3.126a)  -  (3.126f)  giv¬ 
ing  the  following  incremental  plastic  strain  equations 


-  (‘^11^11  “12^22  “31^33^ 


d(j 
dE 

dE22  =  (‘^22^22  “  “23^33 '■“l2“ll^ 

d(5 


22^22  ""23  ""33  ""12""  IE 


p  dE 

^^33  ~  —  ^"^1  ^1 1  ~  “ 


33  33  31  11  ""23  22^ 


(3.136a) 


(3.136b) 


(3.136c) 


d(5 
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(3.136d) 


^^23  “  2^44^23 


,  p  _  3  i 

^^13  “  2^55^13 


(3.136e) 


<i£l2  -  2%6^i2^- 


(3.136f) 


The  increment  of  plastic  strain  is  based  on  the  previous  value  of  stress  rather  than  the 
incremented  value  of  stress.  Eqs  (3.123),  (3.128),  (3.133),  (3.139)  &  (3.136a)  -  (3.136f) 
form  a  set  of  fundamental  equations  for  determining  the  stress-strain  distribution  in  an 
anisotropic  body. 

To  complete  the  anisotropic  plasticity  equations,  the  relation  between  effective  stress 
and  strain  must  be  established.  For  isotropic  material,  this  relation  is  found  from  a  uniaxial 
tensile  stress-strain  curve  described  by  a  Ramberg-Osgood  type  of  algebraic  equation 
{61\.  The  relationship  between  effective  stress  and  effective  strain  for  anisotropic  material 
is  much  more  complicated  since  a  series  of  uniaxial  tension  tests  would  generally  yield 
widely  differing  results  depending  on  the  orientation  of  the  material  axes  with  respect  to 

the  loading  axis.  Hu  [S5]  assumes  that  a  and  e  vary  in  the  same  manner  as  and  Eji. 


That  is,  if 


fc-ll  -  /COjj 


(3.133) 


— n 

Z  =  k(5  .  (3.134) 

This  would  be  true  if  all  uniaxial  tests  yielded  the  same  result.  Since  the  material  is 
anisotropoic,  by  the  very  definition  of  anisotropy,  different  results  should  be  expected 
from  a  series  of  uniaxial  tests  in  different  directions.  The  results  of  Mehan's  investigation 

of  Zircaloy-2  verify  that  Hu's  assumption,  that  a  and  e  are  directly  related  to  ajj  and  Eu, 
is,  in  general,  a  poor  one. 
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Since  we  are  dealing  with  an  anisotropic  material  the  stress-strain  curve  in  every  direc¬ 
tion  will  be  different.  Therefore,  some  form  of  average  effective  stress-strain  curve  must 
be  formulated.  This  average  effective  stress-strain  curve  might  be  described  by  a  Ram- 
berg-Osgood  type  equation  and  should  be  based  on  the  stress-strain  curves  of  the  material 
in  uniaxial  tension  as  well  as  shear.  If  a  uniaxial  test  in  the  ajj  direction  yields 


e  =  g,  (a)  ,  with  similar  algebraic  forms  in  the  other  5  tests.  We  may  define  an  effective 


stress-strain  relation  by  averaging  the  uniaxial  stress-strain  relations  in  a  fomr  similar  to 
Eq  (3.123)  [(57].  An  equation  of  this  nature  fulfills  the  two  requirements  that  the  effective 
strain  is  a  function  of  the  effective  stress  and  that  the  effective  stress-strain  equation 
changes  as  the  stress  ratios  vary.  The  effective  stress-strain  relation  may  be  defined  as 


£  -  g(<^)  -  -  J  +^22^2 


^33'^3 


.(3.135) 


^11^22  ^22^33  ^11^33 

12^12  -2  ~^^23^23  -2  ~^^31‘^13  -2 

a  a  a 


+  -  J  -  J  ^ 

In  the  above  equation,  are  chosen  weighted  average  of  g,-  and  gj.  The  gj  is  the  nonlin¬ 
ear  portion  of  the  a  -  e  curve,  shown  in  .  The  simplest  way  of  averaging  is  to  take  gy  equal 
to  gj  or  gj  depending  on  which  is  taken  as  unity.  With  the  addition  of  Eq  (3.133), 

(3.139),  a  complete  theory  of  anisotropy  plasticity,  which  is  applicable  to  engineering 
problems,  is  formulated. 

In  the  formulation  of  the  equations  to  be  used,  it  is  assumed  that:  the  state  of  stress  is 
a  plane  state,  gy  =  gj,  K  =  Tu,  and  =  1.  The  general  form  of  the  Ramberg-Osgood 
equation  for  a  uniaxial  stress  state  is  taken  as 


G  ,  n 
£  =  ■^  +  kO 
E 


(3.136) 


where 


E  =  modulus  of  elasticity 
k  =  strength  coefficient 


n  =  strain  hardening  coefficient. 


Figure  3.12  Nonlinear  a  -  e  Curve  Demonstrating  Relationship  of  a  >  ay  to  g,- 


If  this  type  of  equation  is  used  to  describe  the  stress-strain  relations  in  the  ajj,  ^22,  and 
C!i2  directions,  the  following  set  of  equations  is  obtained  considering  only  the  plastic  por¬ 
tion  of  the  strain 


-p  —n 

£  =k^G 

=  ^l 

-p  —n 

£  =  k2(y 

=  82 

-p  -n 

£  =  k^O 

=  S3 

Therefore,  the  average  effective  stress-strain  relation  for  plane  stress  becomes 


(3.137) 
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£  =  g(o)  = 


(3.138) 


^  <J  ^ 


11 


\  a  J 


^22^2 


^  ^27}'^ 


\  <5  J 


^11^22 

“^“12^1  -2  "^^^66^3 

a 

It  has  been  tacitly  implied  by  the  use  of  the  same  exponent  in  Eq  (3. 141)  that  the  three 
stress-strain  curves  have  somewhat  the  same  general  shape.  This  is  by  no  means  a  neces¬ 
sary  assumption,  but  it  does  simplify  the  formulation  of  the  equations  somewhat.  If  the 
basic  shape  of  the  three  stress-strain  curves  were  completely  different,  then  the  equations 
should  be  assumed  to  be  of  the  form 


-p  -“I 

e  =<:,a  =g, 

z’’  =  k^o"'  =  g^  •  (3.139) 

-p  -”3 

e  =k^o  =83 


4.  Theoretical  Development 


The  third-order  cubic-nonlinear  transverse  shear  deformation  theory  for  elastic  shells 
is  suitable  for  many  problems  of  practical  interest.  However,  there  are  four  areas  of  analy¬ 
sis  that  require  further  examination.  Specific  problems  of  interest  are  those  that  consider 
spherical  geometry,  rotations  and  curvature  within  the  element  become  very  large,  nonlin¬ 
ear  material  behavior  in  the  element,  and  when  strains  within  the  element  becoming  large. 
The  first  problem  of  interest  is  the  area  of  spherical  shell  geometry.  As  mentioned  previ¬ 
ously  in  Chapters  1  &  2,  the  area  of  cylindrical  shell  analysis  has  been  thoroughly  studied 
in  the  area  of  geometrical  nonlinearity  for  both  isotropic  and  composite  materials.  The 
area  of  spherical  shell  analysis  is  being  studied  but  still  offers  many  opportunities  for 
investigation.  According  to  Dennis  [48]  and  Librescu  [107,  108],  the  assumptions  of  a 
third-order  displacement  field  of  the  cubic-nonlinear  HTSD  theory  are  accurate  for  prob¬ 
lems  where  the  in-plane  strains  and  stresses  are  larger  than  transverse  quantities.  These 
judgements  are  based  upon  Koiter's  work  [98]  and  the  ratio  of  h/R.  Dennis  [48,  49,  51] 
evaluated  problems  with  various  ratios  of  h/R,  and  concluded  the  cubic-nonlinear  HTSD 
was  acceptable  provided  the  criteria  of  h/R  <  1/5  was  met.  Smith  [2 OS],  in  developing 
higher-order  thickness  expansions,  determined  that  a  more  appropiate  criteria  for  the 
cubic-nonlinear  HTSD  theory  is  I^IR^  «  1.  Thus,  the  cubic-nonlinear  HTSD  theory  is 
applicable  for  spherical  geometries. 

A  second  area  of  interest  is  in  nonlinear  material  analysis.  The  area  of  nonlinear  mate¬ 
rial  analysis  for  cylindrical  shells  is  being  studied  but  still  requires  further  analysis,  partic¬ 
ularly  in  the  area  of  composite  materials.  However,  little  research  has  been  accomplished 
in  the  area  of  spherical  shells,  due  mainly  to  the  complexity  of  the  strain-displacement 
relations  with  the  added  curvature  terms.  The  last  area  of  interest  is  when  strains  become 
large  enough  such  that  the  Cauchy  stress-strain  (Eulerian)  and  the  second  Piola  stress- 
Green  strain  (Lagrangian)  coordinate  systems  are  no  longer  coincident.  This  has  been 
addressed  from  a  theoretical  aspect  [229]  but  has  not  been  approached  from  a  numerical 
aspect. 

Some  problems  investigated  using  the  cubic-nonlinear  HTSD  theory,  however,  would- 


4-1 


seem  to  have  exhibited  large  stresses  and  strains  despite  small  values  of  h/R.  For  example, 
a  graphite-epoxy  (AS4-350)  cylindrical  shell  panel  with  clamped  lateral  edges  and  trans¬ 
verse  point  load  was  analyzed  by  Tsai  and  Palazotto  [223,  224],  This  shell  had  a  12-inch 
radius  and  was  0.04-inches  thick,  therefore,  h/R  was  equal  to  1/300.  Transverse  displace¬ 
ments  for  this  problem  exceeded  65  times  the  panel  thickness  (2.5-inch  displacement).  A 
deep  circular  arch  problem  Dennis  investigated  had  transverse  displacements  of  over  30 
times  the  thickness  [48:257-265],  The  effects  of  material  nonlinearity  and  a  large  strain 
analysis  were  not  determined  during  these  studies 


4.1  Spherical  Geometric  Behavior 

From  Eq  (3.72),  a  third-order  displacement  field  for  the  spherical  shell  shown  in  Fig¬ 
ure  4.1,  which  includes  the  higher-order  transverse  shear  deformation  (HTSD)  theory,  is 
represented  by 

3 

“l  +\l/i>’3  +  ^(w  1  +\i/py3 

«2  (>^1’  >'3)  =v{l-  Cy^)  4-  \\f^y^  +  k  (w  ^  +  \]/2)  T3  ’ 

“3  (>'i’>'2)  =  ^ 

where  the  seven  degrees  of  freedom  u,  v,  w,  w j,  W2,  V|/i,  and  vj/2  are  functions  of  the  mid¬ 
surface  coordinates  (y/,  ^2)  The  are  rotations  of  the  normals,  and  we  define  D  = 

i/K;,  C  =  I/R2,  and  k  =  -4/{3h^).  These  kinematic  equations  give  exactly  zero  linear 
transverse  shear  strains  at  the  upper  and  lower  surface  of  a  flat  plate  where  y  =  ±h/2. 
However,  Smith  [207]  showed  that  for  a  curved  shell,  the  linear  transverse  shear  strains 
are  only  "approximately"  zero  at  the  upper  and  lower  surfaces.  As  long  as  the  shell  meets 
the  criteria  of  h/R  <  5,  the  error  is  minimized.  If  the  shell  no  longer  meets  this  criteria,  the 
error  becomes  too  large,  and  the  extensions  by  Smith  [207:  Chap  4,  pp  3-9,  Appendix  D] 
must  be  included  to  enforce  the  exact  zero  boundary  conditions  at  the  upper  and  lower  sur¬ 
faces.  For  a  curved  shell,  Eq  (4.1)  yields  approximately  zero  linear  transverse  shear  terms 
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for  }>  =  ±  hl2  {48,  207,  208}.  The  additional  term  (D)  in  Eq  (4.1)  is  required  to  account  for 
curvature  in  the  -direction  yielding  spherical  geometry.  The  strain-displacement  rela¬ 
tions  for  the  quasi-nonlinear  HTSD  theory  are  given  by 


1 


_  ^  ^2^1,2  “3^1,3  _ 


^  “2^1,2  “3^1,3^^ 

Ml  1  +  7  +  I 

V  ^2  ^3  J 


,  (4.2a) 
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jj'Ul  J  Mj  J  “3*3,1  "1*1,3'! 

"  2!^  *3  "  *1  '  *1*3  ■  *1*3  J 

1  f  “2*2,  lY  “2*1,2  “3*1,3 

A,  Y“i,i+  *2  ^  *3  J 

1  f  “1*1, 2Y  “1*2,1  “3*2,3' 

^2*,*2l"2.‘-  *2  A“2.2^  *1  ^  *3  J 

1  r  “1*1  iY  “1*2  2' 

+  ^[“3,1— ^A“3,2— 

The  complete  strain-displacement  relations  are  given  in  Appendix  E.  The  comparison 
of  the  results  based  upon  the  kinematics  of  Eq  (4.1)  with  published  results,  and  the  results 
of  problems  not  yet  published,  is  a  significant  part  of  this  research. 


4.2  Nonlinear  Material  Behavior 

It  is  well  established  that  unique  relations  do  not  exist  between  stress  and  strain  in  the 
plastic  region  (when  strains  are  large).  The  strain  depends  not  only  on  the  final  state  of 
stress,  but  also  the  loading  history.  Therefore,  the  standard  stress-strain  relations  in  the 
theory  of  elastiticy  must  be  replaced  by  relations  between  increments  of  stress  and  strain 
using  incremental  theories  of  plasticity.  These  theories  are  often  called  incremental  strain 
theory  or  flow  theory  of  plasticity. 
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In  this  section,  of  nonlinear  material  behavior  is  discussed  in  three  parts.  Initially,  lay¬ 
ered  isotropic  materials  are  discussed  for  nonlinear  elastic  and  elastic -plastic  consider¬ 
ations.  The  approach  considered  incorporates  a  layered  method  to  effectively  consider 
bending.  Secondly,  nonlinear  elastic  and  elastic-plastic  relations  are  discussed  from  a  layer 
method  for  laminated  composite  materials.  Finally,  a  large  strain  formulation  is  discussed. 
This  requires  transforming  the  constitutive  relations  from  Eulerian  coordinates  to 
Lagrangian  coordinates  for  both  the  stress-state  and  strain-state  relations. 

4.2.1  Layered  Isotropic  Material:  In  Chapter  9  of  Owen  and  Hinton  [144],  Mindlin 
plate  bending  relations  are  formulated  to  include  transverse  shear  strain  using  multiple 
layers.  This  layered  aproach  is  used  to  capture  the  spread  of  plasticity  over  the  depth  of  the 
plate  or  shell.  Thus,  the  shell  is  divided  into  a  number  of  layers,  each  of  which  may 
become  plastic  seperately.  As  the  number  of  layers  is  increased,  the  model  provides  a 
more  realistic  representation  of  the  gradual  spread  of  plasticity  over  the  shell  cross-sec¬ 
tion.  References  [144  -  147]  suggest  a  total  of  eight  layers  are  needed. 


Figure  4.2  Yielding  of  Layered  Section  [144] 
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It  is  assumed  that  as  the  stress  in  the  middle  of  the  outer  layers  reaches  the  yield  value, 
then  the  outer  layers  become  plastic,  while  the  rest  of  the  layers  remain  elastic,  as  shown 
in  Figures  4.2(a)  and  4.2(b).  Then,  as  more  stress  is  applied,  more  layers  become  plastic, 
until  the  whole  cross-section  eventually  becomes  plastic  (Figures  4.2(b)-4.2(d)).  This  lay¬ 
ered  approach  is  easily  incorporated  into  an  elastic -plastic  laminated  composite  material 
analysis.  Since  the  analysis  of  elastic-plastic  laminated  composites  is  a  primary  thrust  of 
the  author's  work,  this  method  is  extremely  important  in  attempting  to  quantify  the  nonlin¬ 
ear  material  behavior  of  composites. 

For  elastic  isotropic  materials,  the  stress-strain  relations  are  given  by 


{d(5}  = 


(4.3) 


where  is  the  elastic  strain  component,  and  k  denotes  each  layer.  The  constitutive 
matrix  is  given  by 


1  V  0  0 

0  10  0 


(1-v^) 


(1-v) 

0  0  — 0 


0  0  0 


(1-v) 
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D'f  0 


k 


0  D', 


(4.4) 


or  with  more  typical  notation 


^11  ^12  ®  ^ 

^12  ^11  ®  ® 

0  0  Q,,  0 

0  0  0  Q,, 

0  0  0  0 


0 

0 

0 


(4.5) 


where 
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This  implies 


(4.6) 


For  the  layered  isotropic  material,  we  can  assume  a  yield  function  F  is  a  function  of 
the  stresses  associated  with  flexure  but  not  the  transverse  shear  stresses,  This 
assumption  is  based  on  the  thinness  of  the  shell,  which  implies  that  transverse  shear  strains 
remain  linear.  This,  in  turn,  implies  that  transverse  shear  stresses  never  develop  magni¬ 
tudes  that  require  a  plasticity  analysis  in  the  transverse  directions.  The  assumption  is  con¬ 
sistent  with  the  author's  desire  to  develop  a  shell  oriented  analysis  and  not  a  three- 
dimensional  plasticity  approach.  The  yield  function  F  is  also  a  function  of  the  hardening 


parameter,  H’. 

When  yielding  occurs  at  some  point,  it  is  assumed,  unless  loading  occurs,  the  stresses 
always  remain  on  the  yield  surface  such  that 


=  0  . 

Then  the  incremental  elastic-plastic  stress-strain  relationship  is  written  as 


(4.7) 


(4.8) 


Here  dz  =  de^  +  dz^  is  the  sum  of  the  elastic  and  plastic  strain  components.  The  consti¬ 
tutive  relations  take  the  form  of  the  Prandtl-Reuss  flow  equations  (see  Section  3.5.4)  and 
are  shown  below 
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where 


o.  f  -  ‘""V/  0 

-  ■  0  D' 


r  nk  r  .k  ^  V 

^^ep^f_  =  ^'f  -  f 

A+{d^}  {a} 

-  -ifc 

{d^}  =  [d-J  {«} 


{a}  = 


T  r  dF  dF  dF 


3a ^^22  ^^12 


(4.10a) 


(4.10b) 


(4.10c) 


13F 


(4.10d) 


The  plastic  potential  function  for  a  material  following  the  von  Mises  yield  criteria  is  given 
by 


F(o)  =  =  3(/2)  = 


3  r  2  2  2  -1 

=  2L^'ll+<5’22  +  ^'33j+3 


^23  ^13  ^12 


(4.11) 


To  incorporate  the  strain-hardening  effect,  it  is  necessary  to  determine  the  scalar  A,  the 


strain  hardening  parameter.  Owen  &  Hinton  [144]  show  that 


dcy 

A  =  H  =  -r-  =  — 
dz  -p 
dE 


(4.12) 


Thus,  by  experimentally  determining  the  material's  effective  stress  versus  effective  plastic 
strain  relationship,  it  is  possible  to  numerically  quantify  the  strain  hardening  parameter  A. 
A  straight-forward  method  of  characterizing  the  nonlinear  stress-strain  curves  is  assuming 


the  material  takes  the  general  form  of  the  Ramberg-Osgood  equation  [61]  for  a  uniaxial 
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stress  state.  The  Ramberg-Osgood  equation,  for  a  strain-dependent  formulation,  is  given 
by 


^  1 
m  -  1  ,  n 

e  =  — ^ —  +  kG  , 


(4.13) 


where  E  is  the  modulus  of  elasticity,  k  is  the  strength  coefficient,  n  is  the  strain  hardening 
characteristic,  and  m  is  the  current  strain  interval.  This  implies  that  the  plastic  strain  is 


determined  by  the  stress  state  at  the  previous  step  shown  by  Eq  (4.14) 

P  ,  n 
E  =  kG  , 
m  m  -  1 


(4.14) 


By  differentiation,  we  write 


-p  -n 

~  kGffi  _  1 


-p  -n  -  I  - 

~  knG _  \dG YYi  —  \ 


(4.15) 


(4.16) 


Thus,  in  terms  of  the  Ramberg-Osgood  relations,  the  strain  hardening  parameter  A  =  H'  is 
defined  to  be 


H  = 


’m  -  I 


1 

-n-\ 
knGfYi  _  Y 


(4.17) 


4.2.2  Layered  Composite  Material:  The  layered  approach  for  through-the-thickness 
plasticity  is  again  incorporated  into  developing  the  laminated  composite  elastic -plastic 
consitutive  relations.  In  general,  the  elastic  laminated  composite  constitutive  relations  are 
determined  by  integrating  through-the-thickness,  per  lamina  (see  reference  [6i]  for 
details).  Thus,  incorporating  the  layered  plasticity  analysis  is  a  relatively  simple  and 
straight  forward  procedure.  Again,  an  incremental  approach  is  included  to  approximate 
the  nonlinear  material  effects  of  the  laminate.  In  the  first  increment,  the  material  is 
assumed  to  be  completely  elastic.  Thus, 


k  r 

{dG}  =  Q^..  {dE} 

_  *7 


(4.18) 


where 
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(4.19) 


2ii  Qn  Qi6  0  0 

Q12  Q22  Q26  0  0  1^ 

l-e^  -  -  -  [Qijjf  0 

Qij\  -  <2 16  226  <266  0  0  -  >  (4-19) 
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are  the  material  stiffnesses  of  the  laminate  in  the  material  axis  system  for  the  in-plane 

and  transverse  shear  portions  (/and  s  respectively).  These  material  stiffnesses  are  defined 

in  Eq  (3.62). 

After  the  first  increment,  yielding  is  determined  for  each  layer.  If  a  layer  has  yielded, 
the  stress-strain  relation  for  the  plastic  range  is  given  by 


{da}  =  {d£} 


Qij)f  0 
0  I  Qii 


{de} 


(4.20) 


where 


{djy}  {dj^} 


A-{d^}  {a} 


(4.21a) 


{dn}  = 


(4.21b) 


{«}  = 


dF  dF  dF 

^^11’  ^^22  ^^12 


(4.21c) 


19F 


(4.2  Id) 


The  plastic  potential  function,  based  on  the  modified  Huber-Mises  law  for  anisotropic 


composites  [67,  85,  86,  102,  144  - 146]  is  given  by 
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(4.22) 


-2  2  2 
/^(cj)  =  G  —  ^23  ^^22  ~  ^33^ 

■'■^31  ^^33  “^11^  ^^44^23  ^^55*^13  ■'■  ^‘^66^12  ~  ^ 

In  this  equation,  a  is  called  the  effective  stress,  and  the  a,y  are  anisotropic  interaction 

parameters  determined  experimentally.  For  the  layered  approach,  each  layer  would  have 

its  own  plastic  potential  function.  With  the  assumption  of  negligible  transverse  normal 

stress  for  shell  theory,  the  plastic  potential  function  defined  in  Eq  (4.22)  reduces  to 

-2  2  2  2 
F(a)  =a  =^12(^11-^22^  ■'■^23^22 ■‘■^31^11 
2  2  2 
+  3^44023  +  3<3330^3  +  3<2g^a^2  =  ^ 

To  satisfy  the  condition  of  constant  volume  in  plastic  deformation  [61],  the  a,y  parameters 

must  statisfy  the  following  equations 


^11  “  ^12  ■'■'^31 
^22  “  ^23 ‘*‘^12  • 

^11  “  ^31  ■‘■^23 


Experimental  investigations  of  Hill's  theory  of  anisotropic  plasticity  have  been  con¬ 
ducted  by  several  investigators  [65,  95,  122],  A  very  thorough  experimental  investigation 
of  Zircaloy-2,  which  is  highly  anisotropic,  was  undertaken  by  Mehan  [722].  The  result  of 
this  investigation  are  listed  in  Lubahn  and  Felgar  [777].  From  the  results  of  Mehan's  work 
it  can  be  seen  that  the  anisotropic  interaction  parameters  are  not  quite  constant  but  the 
variation  is  relatively  small.  If  the  anisotropic  interaction  parameters  are  assumed  to  be 
constants,  they  may  be  evaluated  from  Eq  (4.24).  Let  the  value  of  the  effective  stress  at 
which  the  material  deforms  plasticity  equal  to  K.  The  anisotropic  parameters  may  be  eval¬ 
uated  by  letting  all  the  stress  components  equal  zero  except  one.  Thus, 


-  ‘^12‘‘'^31  - 


(4.25a) 
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^22  “  ^23  ^12  ~ 


K  ^2 


(4.25b) 


^33  “  ^31  ■‘■^23  ~ 


K  ^2 


(4.25c) 


If  K  \2 


^44  -  31  F. 


(4.25d) 


If  K  ^2 


^55  “  31  F, 


(4.25e) 


If  K  \2 


^66  ■  31  F, 


(4.25f) 


The  Yij  values  are  the  yield  stresses  in  each  of  the  given  directions  indicated  by  the  sub¬ 
scripts.  Since  transversely  isotropic  materials  are  being  analyzed  (implying  ^22  -  ^/2 

=  F/j,  Y23  =  (0.8)F/2),  and  allowing  K  =  Yjj,  Eqs  (4.25a)  -  (4.25f)  become 
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(4.26a) 


^22  “  ^23'^  ^12  ~ 


(4.26b) 


^33  “  ^31  ^23  ~ 
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(4.26c) 


if  ^11? 


^44  “  3  F 


3  (0.8)  F, 


3(0.64)1^F^2 


^11? 


(4.26d) 
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if^lll^ 


3  F. 


(4.26e) 


if^lll^ 


^66  -  3  F, 


(4.26f) 


The  effective  strain  for  anisotropic  materials  is  defined  as 
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(4.27) 
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In  the  equation  above,  g,y  are  a  chosen  weighted  average  of  g,-  and  g^-.  The  g,y  represent 

the  nonlinear  portion  of  the  a  -  e  curve  and  is  demonstrated  in  Figure  3.12.  The  simplest 
way  of  averaging  is  to  take  gy  equal  to  g,-  or  gy  depending  on  which  an  is  taken  as  unity. 

Since  the  assumption  is  that  K  =  Yjj  and  ay/  =  1,  then  gy  =  g,.  From  Eq  (4.15),  we  define 
the  following  set  of  equations 


-P 
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-n 
=  k^G 


-P 

8 


=  ^2 


(4.28) 


Therefore,  incorporating  the  shell  assumption  of  ~  0>  and  including  the  definitions  of 


Eq  (4.28),  Eq  (4.27)  becomes 
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(4.30a) 
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(4.30b) 


It  has  been  tacitly  implied  by  the  use  of  the  same  exponent  in  Eq  (4.28)  that  the  three 
stress-strain  curves  have  somewhat  the  same  general  shape.  This  is  by  no  means  a  neces¬ 
sary  assumption,  but  it  does  simplify  the  formulation  of  the  equations  somewhat.  If  the 
basic  shape  of  the  three  stress-strain  curves  were  completely  different,  or  if  individual 
curve  fits  were  used  for  each  stress-strain  curve,  then  the  equations  are  of  the  form 


-p  -«i 

e  =k^d 

-p  -«2 

e  =k2(5  =82 


(4.31) 


e  -  k^d  -82 
Then  Eqs  (4.30a)  &  (4.30b)  would  take  the  form 
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Referring  back  to  Eq  (4.30b),  then  by  differentiation  we  have 


(4.32) 
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Je  -  {n  2)  ^^12^11^22]  ^2^22^11 

(2  2  ^-|-(«-3)  - 

^55'^  ^AA^n)]^ 

Thus,  in  terms  of  the  Ramberg-Osgood  parameters,  the  strain-hardening  parameter  H\  for 
anisotropic  materials,  is  defined  to  be 

H  =  dc>/{dz)  =  l/(  ("-2)  -2fl^2^11<^22)  • 

■*■  ^2'^22  ■'■  ^^3V^44^23  ■*■  ^55  ^44^12  ) 

For  the  more  general  form,  where  n  is  no  longer  constant  for  all  a  -  e  curves,  Eq  (4.33) 
becomes 
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and  Eq  (4.34)  becomes 
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-H  k2a22<^22^ 

(2  2  2  V  ('^3-3)" 

+  (^3  -  2)  ^3l^«44<^23  ^55^13  ■*■  ^66^12 


4.2.3  Large  Strain  Formulation:  According  to  Washizu  [229]  and  Dvorak  [5S],  when 
strains  are  no  longer  assumed  to  be  small,  the  rotation  of  the  material  axis  system  relative 
to  the  undeformed  structural  axis  system  becomes  substantial  and  therefore  must  be 
accounted  for.  Due  to  the  large  rotations  and  strains,  the  material  properties  are  no  longer 
constant  when  considered  in  a  total  Lagrangian  coordinate  system  (Xj).  If  one  defines  a 

local  Eulerian  coordinate  system  (X,)  at  a  point  before  deformation,  one  can  formulate 
the  transformation  law  between  the  Green's  strain  tensor  and  the  Eulerian  (Cauchy)  strain 
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tensor.  Let  the  strain  tensor  defined  with  respect  to  the  local  Eulerian  coordinates  be 
denoted  by  Then  the  Cauchy  strain  components  defined  with  respect  to  the  general 

Green  strain  components  are  given  by  [229] 


dx.  dx. 

Note  the  Cauchy  strain  components  is  a  by-product  of  deformation  occurring  by  arriving 
at  a  deformed  orthogonal  axis  system.  The  Green  strain  components  is  the  state  of  defor¬ 
mation  coming  from  an  orthogonal  coordinate  system  to  a  deformed  non-orthogonal  set  of 
axes. 

In  the  above  expression,  the  Xy  =  (  3x,)/(9Xy)  terms  are  elements  of  the  transforma¬ 
tion  between  the  Cauchy  (Eulerian)  coordinate  system  (X)  and  the  2nd  Piola  stress-Green 
strain  (Lagrangian)  coordinate  system  (x). 

There  is  a  similar  transformation  between  the  2nd  Piola- Kirchhoff  (Lagrangian)  stress 
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tensor,  a^,  and  the  Cauchy  (Euler)  stress  tensor,  c^ij.  The  2nd  Piola-Kirchoff  stress  tensor 
is  defined  with  respect  to  the  undeformed  (Lagrangian)  coordinates,  after  deformation  has 
occurred,  as  shown  in  Figure  4.3.  The  Cauchy  stress  tensor  is  defined  with  respect  to  the 
local  (Eulerian)  coordinates  as  shown  in  Figure  4.4.  The  transformation  between  the 
Kirchhoff  stress  tensor  and  the  Cauchy  stress  tensor  is  given  by 


rr  1  1  ^X.dX. 

^ij  Ddxi^dx^kl 

where  is  the  coordinate  in  the  deformed  state  and 


(4.38) 


t  .  =  3-^  =  X.  .  =  5..  +  M.  .  =  5. .  +  5-^ 

^i,j  dXj  i,J  ij  i,J  ij  dXj 


(4.39) 


D  -  det  ^ I  -  ^1,  1^2, 2^3, 3  ■^^1,2^2,  3^3,  1 

■^^1,3^2,  1^3,  2  “^1,  1^2, 3^3, 2  ~  ^1,3^2, 2^3,  1  “^1,2^2,  1^3,3 
We  define  in  Eulerian  coordinates  the  stress-strain  relations  to  be 


.(4.40) 


(a  )  =  [a]  (e)  ,  (4.41) 

where  [a]  is  the  Eulerian  constitutive  matrix.  We  can  denote  the  transformation  of  the 
stress-state  from  2nd  Piola-Kirchhoff  stress  to  Cauchy  stress  by 


(CJ^)  =  ((7)  , 


(4.42) 


and  the  transformation  of  the  strain-state  from  the  Green  to  the  Cauchy  strain  directions  by 


(e)  =  djM  (E) 


(4.43) 


Substituting  Eqs  (4.29)  and  (4.30a)  into  Eq  (4.41)  yields 


(a)  =  ^[a][7'2]  (e) 


(4.44) 


or  rewriting  yields 
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(4.45) 


(o)  =  ^  [a]  (e)  =  [d](8) 

where  [D]  is  the  Lagrangian  constitutive  matrix.  To  generate  the  constitutive  matrix,  itis 
necessary  to  findD,  [Tj]  and  [T2]- 


Figure  4.4  Definition  of  Cauchy  Stress  Tensor  [229] 


(4.49a) 


'^1,1^  ^^2,  2^3,  3“^2,  3^3,  2^ 

'^1,2  ~  ~  ^^1,2^3,  3“^  1,3^3,  2^  ’  (4.49b) 

^1,3  “  ^^1,2^2,3“^1,3^2,2^  ’  (4.49c) 

^2,  1  ^  ~  ^^2,  1^3, 3~^2,  3^3,0^^  ’  (4.496.) 

^2,2“  1^3,3~^1,3^3,  1^  ’  (4.49e) 

^2,3  “  1^2,3“^1,3^2,  1^  ’  (4.49f) 

^3,1“  ^^2,  1^3,2“^2,2^3,  1^  ’  (4-49g) 

^3,2  ~  1^3,2~^1,2^3,  1^  ’  (4.49h) 

^3,3“  1^2,2“^1,2^2,  1^ 

Using  the  transformation  law  between  a^,y  and  o,y,  a  stress-state  transformation  is 
determined  to  be 

^11  “  D^^l,  1^1,  1^11  1^1, 2^12  ■^^1,  1^1,3^13  ’ 

■'■^1,2^1,  1^21  ■^^1,2^1,  2^22  ■^^1,2^1,  3^23  ■^^1,3^1,  1^31 
■*■  ^1,  3^1,  2^32  ^1,  3^1,  3^33^ 

^22  “  D  ^^2,  1^2,  1*^11  ^2,  1^2,  2^12  ■^^2,  1^2,  3*^13  ’ 


■'■  ^2,  2^2,  1^21  ^2,  2^2,  2^22  ^2,  2^2,  3^23  ''■  ^2,  3^2,  1*^31 

^2,  3^2,  2*^32  ■*■  ^2,  3^2,  3^33^ 

E  1 

^33  “  D  ^^3,  1^3,  1^11  ^3,  1^3,  2^12  "^^3,  1^3,  3*^13 


,  (4.50c) 


,  (4.50d) 


^23  1^3,  1^11  "^^2,  1^3,  2^12  "^^2,  1^3,3^13 

"^^2,2^3,  1^21  ^2, 2^3, 2^22 ^2, 2^3,3^23  '*'^2,3^3,  1^31 

^2,  3^3,  2*^32  ^2,  3^3,  3^33^ 

E  1 

^13  “  D^^l,  1^3,  1^11  1^3,2^12  ■'■^1,  1^3,  3^13  ’  (4.50e) 

^1,  2^3,  1^21  +  ^1,  2^3,  2^22  ^1,  2^3,  3^23  ^1,  3^3,  1^31 

■'■  ^1,  3^3,  2*^32  ■'■  ^1,  3^3,  3^33^ 

E  1 

^12  “  D^^l,  1^2,  1^11  ■'■^1,  1^2,  2^12  ■'■^1,  1^2,  3*^13  ’ 

■*■  ^1,  2^2,  1^21  ^1,  2^2,  2*^22  ■*■  ^1,  2^2,  3^23  ''■  ^1,  3^2,  1^31 

■*■  ^1,  3^2,  2^32  ■*■  ^1,  3^2,  3^33^ 

Since  the  2nd  Piola-Kirchhoff  tensor,  a^y,  is  symmetric,  we  write 


E 

1 

+  ^1,2^1, 

c„  = 

D^^l,  fil, 

1^11 

2^22  +  ^!,  3^1,  3'^33 

,  (4.51a) 

+  2^1_ 

2^1,  3*^23  ■'■ 

2^1. 

1^1,3^13 

+  ^^1,  1^1,2^12^ 

E 

^22  “ 

D^^2,  1^2, 

1^11 

+  ^2,  2^2, 

2^22  +  ^2,3^2,3^33 

,  (4.51b) 

+  2^2, 

2^2,3^23  ■*■ 

2^2, 

1^2,3^13 

+  ^^2,  1^2,2^12^ 

II 

o 

D^^3,  1^3, 

I'^ll 

+  ^3,  2^3, 

2^22  +  ^3,3^3,3^33 

,  (4.51c) 

+  2^3 

■^9 

2^3,3^23  ■*■ 

2^3 

1^3,3^13 

+  ^^3,  1^3,2^12^ 

II 

(^2,  1^3,  1^ 

11  + 

^2, 2^3, 2^22  +  ^2,  3^3,  3*^33 

,  (4.51d) 

(^2,  2^3,  3  ■*■  ^2,  3^3,  2^  ^23  ^^2,  1^3,  3  ^2,  3^3,  1^  ^13 

■•■  ^^2,  1^3,  2  ^2,  2^3,  1^  ^12^ 
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,  (4.51e) 


^13  ^  1^3,  1^11  ■^^1,2^3, 2^22  ■*■^1,3^3,  3^33 

■'■  2^3,  3  ^1,  3^3,  2^  ^23  ^^1,  1^3,  3  ^1,  3^3,  1^  ^13 

1^3,  2  ■'■  ^1,  2^3,  1^  ^12^ 

E  1 

^12  “  D^^l,  1^2,  1^11  ■^^1,2^2,  2^22  ■^^1,3^2,  3^33  ’  (4.51f) 


■'■  ^^1,  2^2,  3  ^1,  3^2,  2^  ^23  "'■  ^^1,  1^2,  3  ''■  ^1,  3^2,  1^  ^13 

^^1,  1^2,  2  ■^^1,2^2,  1^^12^ 

or  in  matrix  form 

(^1,2^ 

(^2,  l)  (^2,2^  (^2, 3^ 

^^3,  l)  (^3,2^  (^3,3) 

^2,  1^3, 1  ^2,  2^3,  2  ^2,3^3,  3 
^1,  1^3,  1  ^1,2^3, 2  ^1,3^3,  3 
^1,  1^2,  1  ^1,2^2,  2  ^1,3^2,  3 


2^1, 

2^1,3 

2^1,  1^,3 

2^1. 

1^1,2 

/  'i 

^11 

2^2, 

2^2,3 

2^2,  1^2,3 

2^2, 

1^2,2 

*^22 

2^3 

2^3,3 

2^3,  1^3,3 

2^3 

1^3,2 

*^33 

^2.  2^3.  3 

^2,  3^3,  2 

^2,  1 

^3,  3  ^2,  3^3,  1 

^2,  1 

^3,2 

■^^2,2^3,  1 

^23 

^1,2^3,  3 

■^^1,3^3,  2 

^1,1 

^3,3  ■*■  ^1,3^3, 1 

^.,1 

^3,2 

■'■^1,2^3,  1 

^13 

^1,2^2,  3 

■^^1,3^2,  2 

^1,1 

^2,  3  ■^^1,3^2, 1 

^2,2 

■*■^1,2^2,! 

.  ^12  ^ 

t 

^11 

E 

^22 

E 

*^33 

1 

E 

^23 

■  D 

E 

013 

E 

C5 « 

(4.52a) 


(4.52b) 


Using  contracted  notation  (ajj  =  Oj,  022  =  ct2,  023  =  04,  ai3  =  a5,  a\2  =  ct6>)  applying 


the  shell  theory  assumption  of  03  =  0  to  Eqs  (4.52a)  &  (4.52b),  one  obtains 
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^^1,2^1, 3 

1  (^2, ^^2,2^  ^^2,2^2, 3 

^  ^2, 1^3,  1  ^2, 2^3, 2  ^2,  2^3,  3  ^2,  3^3,  2 

^1,1^3,  1  ^1, 2^3,2  ^1,  2^3,  3  ^1,3^3,  2 

_  ^1,1^2,  1  ^1,2^2,  2  ^1,2^2,  3  ■‘■^1,3^2,  2 


(4.53a) 


^^1,  1^1,3  1^1,2  *^1 

^^2,  1^2,3  ^^2,  1^2,2  *^2 

^2,  1^3, 3  ■^^2,3^3,  1  ^2,  1^3, 2  "^^2,2^3,  1  ^4  (4.53b) 

^1,  1^3,  3  ^1,3^3,  1  ^1,  1^3,2‘^^1,2^3,  1  ^5 

^1,  1^2,  3  ■*■^1,3^2,  1  ^1, 1^2,2  ■'■^1,2^2,  1  _  ^  ^6  ^ 

We  can  develop  a  similar  strain-state  transformation  matrix  given  as  (in  contracted  nota¬ 
tion) 

f  ^  2  2  2 

e,  (5Ci,i)  (Xi,2)  (5(1,2) 


(X2, 1)  (5(2,2)  (5(2,3) 

=  ~  (5(3,1)  (5(3,2)  (^3,3) 

D 

“V  “V  ^  'V  V  “V 

^2, 1^3,  1  a-2,  2^3,  2  a,2,  3^3,  3 

"V  'V  'V  V  V  ^ 

A-l,  IA'3,  1  -VI,  2^3,  2  A,i,3/,3,  3 

“V  'V  "V  V  V  V 

A-l,  1^-2,  1  a,i,2A'2,  2  a,i,3X2,  3 


(4.54a) 


^Xi,  2X1,  3 

^Xi,  1X1,3 

^Xi,  1X1,2 

2X2,  2X2,  3 

2X2,  1X2,3 

^X2,  1X2,2 

^X3,  2X3,  3 

^Xs,  1X3,3 

^X3,  1X3,2 

’  ’  1  J.  1  .5./  (4.54b) 

X2,  25(3,  3  ■*■  5(2,  35(3,  2  5(2,  1X3,  3  +  X2,  3X3,  1  X2,  1X3,  2  X2,  2X3,  1  £4 

Xl,  2X3,  3  ■*■  Xl,  3X3,  2  Xi,  1X3,  3  +  Xi,  3X3, 1  Xi,  1X3,  2  Xi,  2X3,  1  £5 

Xi,  2X2, 3  ■*'Xi,  3X2,2  Xi,  1X2,3  "^Xi,  3X2, 1  Xi,  1X2,2  ■*’Xi,  2X2, 1  _  ^  ^6  ^ 

Recall,  for  shell  theory,  03  =  0.  We  assume,  that  none  of  the  Eulerian  strains,  e,-,  depend 

upon  the  Lagrangian  strain,  £3.  We  can  determine  ^3,  by  dependency,  through  the  constitu¬ 
tive  relations.  For  transversely  isotropic  materials 
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(4.55) 


^3  ^  ^13^1  ^23^2  ^33^3 


Solving  for  results  in 


^3  “ 


^13 

VV^33y 


gj  + 


( c  ^  \ 

^23 
K^33J 


(^EjVji  (1  -  V23) 


V 


^2^23^12^21  ^ 

^1  '*'  F  /  1  M  M  \^2 


^2(1-V,2V2,)  ‘  £2(1-Vi2V2i) 

^1^21  (^-^23)  ^23^12^21 

^2(1-V,2V2,)"'''(1-V,2V^^)% 


>'  c  ^ 

*•^13 

v^33; 


[(Xi,i)^e,  +  (Xi,2)%  +  2Xi,2Xi,3e4 


+  2X, ,1X1, 325  +  2%, _,%,2£j 


^  c  ^ 

'-^23 

v^33y 


[(X2,  1)  2, +  (%2^2)  ^2  +  2X2,  2X2,  3^4 

+  2X2,  1X2,  3^5  +  2X2, 1X1,  2^6  ^ 

For  isotropic  materials,  the  constitutive  relations  yield 
E 

(j^  =  0  =  C^2(^1+^2^  "^^11^3 
and  solving  for  results  in 


(4.56) 


(4.57) 


12  (1-v) 

^3  =  (^1  +  ^2)  =  (^1  +  ^2) 


(1-V)  ,  ,  ^2  ,  ,2  , 

2  t()(i,  1)  ^i+(Xi,2)  ^2  +  2X1,2X1,324 

+  2Xi,  1X1, 325  +  2%,^ ,%,_  2^^  ] 

(1-v)  r  .  ,2  ,  ,2  , 

2  ^  ()(2,  1)  2i+(X2,  2)  22  +  2X2  2X2,324 


(4.58) 


+  2X2, 1X2,3%  +  2X2, 1X1,225  ] 

Due  to  the  assumption  of  no  dependency  of  e,-  with  respect  to  £3,  the  strain-state  transfor¬ 
mation  matrix  reduces  to  a  5  x  5  form  shown  below 
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(4.59a) 


f  \ 

^1 

^2 

1 

^4 

^5 

(%2,  l)  (5(2,2)  ^5(2,25(2,3 

5^2,  i5(3,  1  5(2,25(3,2  5(2,25(3,3  5(2,  35(3.  2 
5(l,  i5(3,  1  5(i,  2X3, 2X1,  2X3,  3  Xi,  3X3,  2 
Xl,  1X2,  1  Xi,2X2,  2  Xi,2X2,  3  ■*’Xi,3X2,  2 


^Xi,  1X1,3  ^Xi,iXi,2 

^Xa,  1X2,3  2X2, 1X2, 2 

^2 

X2, 1X3, 3  +  X2, 3X3, 1  X2, 1X3, 2  X2, 2X3, 1 

£4 

Xl,  1X3,3  +  Xi,3X3, 1  Xl,  1X3, 2 '•’X  1,2X3, 1 

£5 

Xl,  1X2,3  '^Xi,3X2, 1  X],  1X2, 2  ■''X  1, 2X2, 1 

V  ^  J 

If  we  apply  the  definition  of  given  in  Eq  (4.46)  to  Eqs  (4.40),  (4.49a) 


(4.53),  and  due  to  the  shell  theory  assumption  M3  3  =  0,  we  have 


D  -  1  +  “1,  1  +  “2,2  “1,  l“2,2'^  “l,2“2,3“3,  1  *^1,3^2,  1^3,  2 

“  “1,  2^2,  1  “  “1,3^3, 1  “  “2, 3^3, 2  “  “1, 1^2,  3^3,  2  ~  ^\,3^2,  2^3,  1 


with 


Xl,  1=  (1  +  “2,2  ““2,3^3,  2^  ’ 

^\,2  ~  ^“l,3“3,2~“l,2^^'^  ’ 

'^1,3  ~  ^“1,2^2,  3  ““1,3^^  ■*■“2,2^^^'^  ’ 

'^2,1  ~  ^“2,  3^3,  1  ““2,  1^  ’ 

'^2,2  ~  ’ 

^2,3  ~  ^“1,3^2,  1~  “2,3^^  ■'■“1,  1^^^-^  ’ 
^3,1  ~  ^“2,  l“3,2~“3,  1  “2,2^^  ’ 

5(3,2“  ^“1,2^3,  1~  “3,2^^  "^“l,  1^5/^  . 

5(3,3“  (  “1,  l5  +  “2,2^  “  ^1,2^2,  1^ ’ 


(4.59b) 

(4.49i),  and 

(4.60) 

(4.61a) 
(4.61b) 
(4.61c) 
(4.6  Id) 
(4.61e) 
(4.61f) 
(4.61g) 
(4.61h) 
(4.6  li) 
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Thus,  from  Eqs  (4.52a)  and  (4.52b),  one  obtains 


E 

■* 

E 

E 

1 

“  D 

E 

^5 

E 

1  ^6  y 

(  1  +  j) 


^“1,2) 

(L  +  “2, 2) 

( 1  +  M2^  2)  “3, 2 

(1  “1,  1)  “3, 1  “l,2“3,2 

(  1  +  Mj  j)  U2  j  M2  1  (  ^  +  ^2  2^  2^2  3  ■*■  “1  3  (  1  +  ^2  2^ 


“2,  1^3,  1 


2  (  1  +  M2  2)  “2  3 

( 1  +  M2  2)  +  “2,  3^3,  2 


“l,2‘^“l,3“3,2 


2(1+  Mj^  j)  Mj^  2 


^“2,  1^2,3 
“2,  1  “2,  3^3,  1 

(  1  +  Mj  ()  +  Mj  3M3 


2(1+  Mj^  j)  M|^  2 
^^2,  1  ^  ^  ^2,  2^ 

M2  JM3  2  +  ( 1  +  ^2  2^  “3  1  II  ^4  I  •  (4.62b) 

(  1  +  Mj  j)  Mj  2  +  M]  2^3  2 

(  1  +  M  j  I )  M2  2  3^2  1  i)(l4'  ^2  2)  2^2  1 

For  the  transformation  between  stress-states,  we  assume  that  rotations  of  the  normal 
(M3  1  or  M3  2)  and  rotations  about  the  normal  (mj  3  or  M23)  are  small  for  each  increment. 

Products  of  these  terms  are  considered  higher-order  and  are  neglected.  Thus,  Eqs  (4.60), 
(4.61a)  -  (4.61i),  (4.62a)  and  (4.62b)  become 


(4.62a) 


^  1  +  “1,  1  +  “2,  2  “1,  1^2,  2  ^1,  2^2,  1 

=  1)  (1 +“2,  2^  “^1,2^2,  1 

(4.63) 

%!,  ^  =  (l  +  u^  ,^)  /D  , 

(4.64a) 

^1,2  ~  "“1,2^'^  ’ 

(4.64b) 

^1,3  “  ’ 

(4.64c) 

^2, 1  “  "“2,  ’ 

(4.64d) 

5^2,2  =  (1  +  j)/D  , 

(4.64e) 

^2,3  ^  ’ 

(4.64f) 
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(4.64g) 


^3,  1  "■  “3,  ’ 

X3  2  =  ““3  2'^-^  ’  (4.64h) 

^3,3“  (  (1  +  (1  +  2)  -“1  2^2  ^ 


(l  +  “i.i)  («1.2)  0 

(U2j)  (I+M2, 2)  ^“2,3 

0  Mg  2  ( 1  +  ^2  2^ 
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(4.65a) 


(1  +  Mj^  1) 


(4.65b) 


where 


D  -  (l+u^  -^){\  +  U2  2)'^^l  2^2,l 


(4.66) 


If  Eqs  (4.63)  -  (4.64i)  are  substituted  into  Eq  (4.59)  then,  in  terms  of  displacement,  a 
new  strain-state  transformation  matrix  results.  By  applying  the  same  assumptions  as  in  the 
stress-state  relations  (Eqs  (4.65a)  and  (4.65b))  concerning  rotations  of  the  normal  (M3  j  or 
M3  2)  and  rotations  about  the  normal  (mj  3  or  M2  3).  Multiples  of  these  terms  are  higher- 

order  and  can  be  neglected.  Thus,  Eq  (4.59)  becomes 


(  1  +  M2^  2) 
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(l+Mj  i)M2  i  *^2,  1  (  ^  “2,  2)  “1,3 
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(4.67b) 
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V  6  7 

It  should  be  noted  the  1/D  terms  appears  due  to  the  products  of  Xkj-  The  transverse 
normal  strain,  63,  for  transversely  isotropic  materials  become 


^1^21  ( ^  ''23) 


^3  £2(1 -V12V21) 


2  2 

(  1  +  M2  2)  2^  ^2  ~  ^“1  2  (  ^  “2  2^  ^6 


23^^12^21 


(l-V,2V2i) 
and  for  isotropic  materials 


2  2 

(^2,  1^  j)  ^2  "^^1,1^^2,  1  ^6 


,  (4.68) 
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2  2 
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(4.69) 


Finally,  if  we  consider  the  magnitude  of  the  terms  M]  3,  M23,  M3  j,  and  M3  2  with  respect  to 


D,  then  the  stress-state  and  strain-state  relations  become 
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(4.70a) 
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(4.70b) 
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(4.71b) 


Now  we  can  write  the  transformation  from  2nd  Piola  Kirchhoff  stress  to  Cauchy  stress 
coordinates  as 


and  for  the  transformation  from  Green’s  strain  to  Cauchy  strain  as 

M  =  (e)  . 

where  [Tj]  is  defined  by 


(4.72) 


(4.73) 
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2  : 
{U^  .)  (  1  +  ^2  2) 


(  1  +  “2,  2) 


0  2(1+m,j)m,2 

0  lUj  J  (  1  +  Mj  2) 

U-  ,  0 


2  (  ^  1) 


(1+M|  1)^2  j  Wj  2(^'^  ^2  ^ 


and  [72]  is  defined  by 


(4.74) 


0  -2«j  2  ( 1  +  “2  2) 
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( 1  +  Mj  j)  O  -U2 

— Mj  2^  (  1  ^2  2^  ^ 


1  ^2,  1  ^  ^  ^2,  2^  ^ 


(4.75) 


Recall,  in  Eulerian  coordinates,  we  express  the  Cauchy  stress-strain  relations  as 


(a^)  =  [a]  (e)  , 


(4.76) 


where  [A]  is  the  Eulerian  constitutive  matrix.  For  a  large-strain,  total  Lagrangian  formula¬ 


tion,  we  write 


D  ~  2  A  J2_ 


(4.77) 


1  r  1-^r-ir  1  r  n 

=  Dr  ij  LaI  r  2J  {e}  =  L^J  {e}  >  (4-78) 

where  [D]  is  the  Lagrtingian  constitutive  matrix  required  for  a  large-strain  analysis.  It 
should  be  noted  that  [7i]  and  are  inverses  of  each  other  by  the  definition  given  in  Eq 

(4.78).  Thus,  the  symmetry  of  [D]  is  maintained.  It  should  be  noted  that  Eq  (4.78)  follows 


the  formulation  of 


a..  =  D..,  ,e,, 

ij  ijkl  kl 


(4.79) 


where 


1  dx.  dx.  dx,  dxj 
i _ I  j  k  I 

^ijkl  =  DdX  dX  dx  dx  ^mnop 
m  n  o  p 


(4.80) 


Amnop  is  the  constitutive  relations  of  the  Cauchy  (Eulearian)  coordinate  system  only. 
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Thus,  for  a  total  Lagrangian  formulation,  these  relations  must  always  be  transformed  into 
Dijki  when  the  small  strain  assumption  is  no  longer  valid  (i.e.  when  rotations  and/or  dis¬ 
placements  become  significantly  large).  This  usually  occurs  when  rotations  reach  the 

magnitude  of  15°  (0.263  rad)  or  if  the  magnitude  of  displacement  is  greater  than  five  times 
the  shell’s  thickness  {d  <  5h).  Results  in  Sections  5.1,  5.3,  and  5.5  demonstrate  how  the 
material  transformations  alone  do  not  reflect  greater  flexibility  in  the  shell’s  response. 
Such  problems  are  considered  plates  or  shallow  shells  when  comparing  their  depth  (6) 
versus  shell  thickness  (h).  However,  Eq  (4.78)  incorporates  the  assumptions  of  shell  the¬ 
ory  which  degenerates  the  analysis  to  a  quasi  two-dimensional  form. 

It  should  be  noted  that  these  transformations  relate  the  Cauchy  constititutive  relations 
to  the  Lagrangian  constitutive  relations,  only.  The  implication  of  this  becomes  more  clear 
for  fiber-oriented  materials  such  as  laminated  composites  than  for  isotropic  materials. 
Since  these  transformations  relate  only  the  constitutive  relations  between  2nd  Piola  stress- 
Green  strain  and  Cauchy  stress-strain  relations,  an  implicit  assumption  is  made.  The 
assumption  is  that  the  fiber  orientation  is  maintained  during  each  increment,  i.e.,  a  45°  ori¬ 
ented  fiber  will  always  be  45°  in  the  Cauchy  reference  frame,  and  not  rotate.  In  order  to 
capture  fiber  movement,  a  second  transformation  is  required  to  quantify  the  change  in 
fiber-orientation  between  each  increment.  Thus,  the  implied  assumption  is  that  changes  in 
fiber-orientation  between  increments  of  displacement  are  negligible.  This  is  verfied  in 
Section  6.5  by  comparing  experimental  results  of  a  Gr/PEEK  tensile  coupon  to  the  analyt¬ 
ical  model. 

Once  yielding  occurs  at  a  specified  point  in  the  layer,  the  elastic  constitutive  matrix  is 
replaced  with  the  elastic-plastic  constitutive  matrix.  Also,  it  is  assumed  that  strains  are 
large  enough  such  that  the  deformed  and  the  undeformed  structural  axes  are  not  co¬ 
located.  A  transformation  for  both  the  stress-state  and  strain-state  from  Eulerian  compo¬ 
nents  to  the  Lagrangian  components  is  required  to  ensure  the  constitutive  relations  are  in  a 
total  Lagrangian  form.  Finally,  for  simplicity,  the  transformation  matrices  of  the  middle 
layer  of  the  shell  is  used  for  the  remaining  layers  of  the  shell.  Using  this  layered  approach 
allows  for  direct  comparison  with  several  published  studies  [67,  97,  102,  135,  137,  144  - 
146,  153,  189,  205 , 206]. 
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4.3  Element  Independent  Stiffness  Formulation 


The  theory  of  the  previous  sections  dealt  with  displacement  fields,  constitutive  rela¬ 
tions,  and  strain-displacement  relations  for  curved  shells  with  a  nonlinear  HTSD  theory. 
The  next  step  required,  to  create  a  suitable  research  tool  for  the  investigation  of  (1)  spheri¬ 
cal  geometry,  (2)  nonlinear  material  effects,  and  (3)  large-strain  formulation,  is  the  devel¬ 
opment  and  solution  of  the  governing  differential  equations  for  shell  problems.  Since  the 
author  is  specifically  interested  in  the  nonlinear  phenomena  of  large  displacements  and 
rotations,  no  analytical  or  linear  solutions  are  desired.  Furthermore,  to  provide  a  suitable 
comparison  to  previously  published  methods,  the  author  has  chosen  to  develop  the  gov¬ 
erning  differential  equations  and  solve  these  in  a  manner  consistent  with  that  of  Dennis 
[4S\.  In  his  development,  Dennis  used  an  "element  independent"  finite  element  formula¬ 
tion  for  an  incremental/iterative  solution  based  upon  the  principle  of  stationary  potential 

energy  of  a  linear-elastic  laminated  shell  {48:78-95}.  This  method  is  employed  for  the 
elastic  and  large  strain  formulations.  However,  since  plasticity  is  unconservative,  the  sta¬ 
tionary  potential  energy  formulation  is  incorrect.  Thus,  for  the  elasto-plastic  formulation 
an  incremental  elasto-plastic  potential  energy  formulation  is  developed. 

4.3.1  Elastic  Formulation:  The  finite  element  technique  is  a  powerful  numerical 
method  capable  of  solving  many  coupled  partial  differential  equations  over  a  certain 
domain.  In  this  research,  the  domain  is  a  spherical  shell,  shown  in  Figure  4.1,  and  theequa- 
tions  are  based  upon  the  variation  of  the  total  potential  energy.  Yip,  of  the  elastic  body. 
Specifically,  the  principal  of  stationary  potential  energy  is  used  where  511/?  =  0.  The  poten¬ 
tial  energy  expression  is  found  by  first  examining  the  equilibrium  state  of  the  body.  For  a 

body  of  volume  V  with  prescribed  forces  F*  on  part  of  its  surface  5^  and  prescribed  bound¬ 
ary  conditions  on  the  remaining  part  of  the  surface  ^2,  the  equation  of  equilibrium  for  an 
infinitesimal  virtual  displacement  Am  is  given  by 

n  =  j  j  {F^hu)dS  =  Y)  ,  (4.81) 

V  s^ 

where 


a'^  =  the  components  of  the  Second  Piola-Kirchhoff  stress  tensor  (for  the  orthogonal 
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coordinate  system  chosen,  &■>  =  a,y) 

=  the  Green  strain  components  expressed  in  the  body's  coordinate  system 
=  components  of  body  forces,  and 
=  components  of  prescribed  surfece  forces. 

For  a  conservative  system,  one  where  the  forces  F*  do  not  vary  during  virtual  displace- 
ment,  there  exists  a  strain  energy  density  function  W  ,  such  that 


dW* 
ij  ~  dy.. 


a..  = 


(4.82) 


Assuming  strains  are  small,  then  one  can  express  the  stress  in  terms  of  strain  as 

where  are  constants  in  the  Eulerian  elastic  tensor.  Thus,  the  strain  energy  density 
becomes 

The  first  variation  of  the  potential  energy  for  the  case  with  zero  body  forces  is  given  by 


5n  =  5f  W^{u)dV-  f  /hudS  =  0  .  (4.85) 

V  0, 

To  evaluate  Eq  (4.85),  a  suitable  reference  frame  musts  be  chosen.  A  typical  method  is  to 
assume  a  total  Lagrangian  approach  where  the  strain  tensor,  elasticity  tensor,  and  all  other 
components  are  described  in  terms  of  coordinates  of  the  original  undeformed  body. 

For  a  laminated  orthotropic  material,  the  stress  components  can  be  written  in  terms  of 

the  reduced  structural  stiffness  of  the  lamina  as  in  Eq  (3.61).  Substituting  Eq  (3.61)  into 
Eq  (4.84)  and  integrating  over  the  volume  of  the  body,  one  obtains  the  strain  energy  as  U j 
+  U2,  where 


C/,  =  2l^(2nei +  222e2  +  2(2i2e,e2  +  2ei6e,eg  +  2Q26e2e6  +  266e6)^^ 

\  f  —  2  —  —  2 

6^2  =  2 J  ^  2G45e485  +  essEg)  dV 


.  (4.86) 
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The  £(■  in  Eq  (4.86)  depend  on  the  thickness  coordinate  and  the  midsurface  coordinates  yi 

and  y2-  The  Qij ,  defined  by  Eqs  (3.60)  and  (3.62),  however,  depend  only  on  the  thickness 
coordinate.  Thus,  these  equations  canlie  reduced  to  an  integral  over  the  mdisurface  of  the 
shell.  This  is  done  by  first  assuming  displacement  components  mj,  U2,  and  M3  vary  in  the 
form  of  a  series  expansion  with  respect  to  the  thickness  coordinate.  Then,  one  can  directly 

integrate  the  Qij  expressions  through  the  thickness  of  the  shell.  The  integral  through  the 

thickness  of  Qijy\  defines  an  elasticity  array,  say  Cij.  These  arrays  are  the  familiar  A,y, 

Dij, ...  associated  with  macro-mechanical  behavior  of  laminated  composite  plates  [94:154- 
155].  For  the  laminated  composite,  the  integral  is  replaced  by  summation  over  the  number 
of  plies  as  shown  below 


N 

Cij,  =  ^ij  =  X  iQij)k(y3-y3^_) 

k=  1 
N 

=  I 

k=  1 

^  ..  (4.87) 

k=  1 

N 

c,„  =  ?■<;=  S  (Qij>t(y\l-yt,) 

k=  1 

It  should  be  noted  that  even  though  >'"3  where  n  =  1,15,  is  of  the  same  relative  order  of 
magnitude  as  Ay.  Recall,  from  Eq  (4.1),  the  kinematics  for  a  general  spherical  shell. 

Notice  that  a  y^3  term  appears  in  both  m/  and  M2.  Also  note  that  k  =  -(4/3)h^  which  implies 
the  last  term  in  both  u j  and  M2  is  of  the  same  relative  order  of  magnitude  as  the  middle 
term.  Thus,  Ty  is  of  the  same  relative  order  of  magnitude  as  Ay. 
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The  previous  expression  for  the  variation  of  total  potential  energy  Up  gives  five  cou¬ 
pled  nonlinear  partial  differential  equations  which  govern  the  equilibrium  of  the  system. 
These  expressions  contain  18  displacement  parameters:  u,  m j,  U2,  v,  V  j,  V2,  w,  w j,  W2, 

^,22>  ^,12»  ¥i>  ¥i.i'  Vi,2’  ¥2’  ¥2,1’  ¥2,2-  of  these  terms  is  called  the  dis¬ 

placement  gradient  vector,  {d}.  These  parameters  include  the  seven  displacement  param¬ 
eters  in  Eq  (4.72)  and  their  derivatives.  Since  the  equilibrium  equations  are  nonlinear  in 
terms  of  the  displacement  parameters,  an  incremental-iterative  approach  is  typically  used 
to  solve  a  system  of  linearized  equations  which  yields  an  equivalent  solution.  These  lin¬ 
earized  equations  are  found  by  differentiating  the  expression  for  Up  with  respect  to  the 
displacement  functions.  For  simple  theories,  such  as  a  Donnell  theory  or  a  linear  FTSD 
theory  where  relatively  few  terms  are  included,  the  first  variation  of  Up  and  its  lineariza¬ 
tion,  can  be  explicitly  developed,  term  by  term.  For  more  complete  theories,  such  as  the 

quasi-nonlinear  HTSD  theory  [48]  or  a  fully  nonlinear  theory,  the  expression  of  Tip  has 
several  hundred  terms.  Its  first  variation  would  include,  perhaps,  thousands  of  terms  and 
the  subsequent  linear  equilibrium  equations  would  be  quite  lengthly. 

Rajasekaran  and  Murray  [173]  developed  a  formal  procedure  for  finite  elements, which 
defines  the  total  potential  energy,  its  first  variation,  and  the  linear  incremental  equilibrium 
equations  in  terms  of  three  stiffness  matrices.  Specifically,  the  total  potential  energy  is 
given  by 


3 


-I- 


N. 


{9}  - 


(4.88) 


where 

{q]=?i  column  array  of  nodal  displacement  parameters 
{P}  =  a  column  array  of  nodal  loads 

-  an  array  of  constant  stiffness  coefficients 
[Nj]  =  an  array  of  nonlinear  coefficients  with  each  term  dependent  on  one  of  the 
displacement  parameters  ([A^;]  is  linear  in  terms  of  displacement),  and 
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[A^2]  =  ^  array  of  nonlinear  coefficients  with  each  term  dependent  on  the  product  of 
two  displacement  parameters  ([N2]  is  quadratic  in  terms  of  displacement). 


By  carrying  out  the  variation  of  Eq  (4.88),  one  obtains  the  virtual  work  expression 
(and  the  equilibrium  equations,  F)  as  shown  in  Eqs  (4.89)  &  (4.90).  In  Eq  (4.89)  note  that 
K,  N],  and  N2  of  Eq  (4.88)  are  duplicated  as  a  result  of  carrying  out  the  variation  of  Eq 
(4.88). 

5n  = 

p 

=  ^q^F{q)  =  0 


1  1  ^ 
,^+2^1^3^2j 


q-P 


=  0 


14.891 


Then,  for  an  arbitrary  and  independent  hq. 


F{q)  =  0  (4.90) 

Eq  (4.90)  represents  the  nonlinear  algebraic  equations  in  the  nodal  degrees  of  free- 
dom(dof)  q.  Solutions  to  Eq  (4.90)  are  found  iteratively  through  the  linearized  incremen¬ 
tal  equations.  These  are  derived  by  expandng  Eq  (4.90)  into  a  Taylor  series  as  shown  in 
Eq  (4.91),  where  the  higher  order  terms  are  neglected  since  is  assumed  to  be  small. 

dF 

F{q  +  di.q)  =  F(^)  +  -t- ...  =  0  .  (4.91) 

Rearranging  Eq  (4.91)  and  letting  Kj  =  K  +  +  iV2  gives  Eq  (4.93)  where  the  stiffness 

arrays  K,  N^,  and  N2  are  duplicated  as  a  result  of  taking  partial  derivatives  of  F. 


dF 

=  -F(q} 


K  +  N^+N^ 


z]  (A^)  =  - 


F{q) 


(4.92) 


(4.93) 
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Eq  (4.93)  gives  solutions  in  an  iterative  manner  via  a  Newton-Raphson  technique.  The 
current  values  of  q  are  substituted  into  Ni  and  N2  resulting  in  an  array  of  constants  for  Kj. 
The  set  of  linear  equations  are  then  solved  for  A<?,  which  is  then  added  to  q  giving  the 
updated  nodal  displacements.  Assuming  the  solution  is  not  yet  converged,  the  right  hand 
side  (RHS)  of  Eq  (4.93)  is  nonzero.  Iteration  continues  until  F  becomes  arbitrarily  small, 
signifying  equilibrium  is  satisfied.  The  equilibrium  equation,  then  is  given  by 


and  the  linear  incremental  equilibrium  equation  is  given  by 


(4.94) 


{A^}  -  {AP}  =  {0} 


(4.95) 


According  to  Rajasekaran  and  Murray,  this  notation  was  introduced  by  Mallett  and  Marcel 
in  1968  [173].  To  assure  the  formalism  of  Eqs  (4.88)  -  (4.95)  holds,  the  stiffness  matrices 
[/Hi  and  [A2]  must  be  derived  in  a  specific  way.  Rajasekaran  and  Murray  showed 
that  by  expressing  strain  components  as  follows 

T  1 

{£.}  =  {L.}  {d} +2{dplH.]  {d}  ,  (4.96) 


and  then  redefining  the  terms  of  [/sT].  W]],  and  [N2]  the  formalism  of  Eqs  (4.88)  -  (4.95) 
would  always  be  valid  for  any  finite  element  representation  of  elastic  continuum.  In  Eq 
(4.96)  the  terms  are  defined  as; 

e,-  =  a  particular  strain  component 

[d]  =  a  column  array  of  continuum  displacement  parameters  is  the  18x1 
displacement  gradient  vector 

m)  =  a  column  array  of  the  constant  coefficients  of  terms  in  £,■  containing  only  one 
displacement  parameter  (the  terms  are  linear  with  respect  to  displacement),  and 
[//(•]  =  a  symmetric  array  of  constant  coefficients  of  terms  in  e,-  containing  the  product 
of  two  displacement  parameters  (the  terms  are  quadratic  with  respect  todisplacement). 
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Using  Eq  (4.96)  and  defining  the  terms  for  a  specific  e,-  as  e,-^  +  the  expression  for 
potential  energy  of  an  elastic  material  can  be  written  as 


n  =  i  j 

P  2Jy 


C..l^£.e^. +2e.^.  +e.  e.  \dV-{d}  {P} 


(4.97) 


where  Cy  is  the  symmetric  array  of  elasticity  constants  and  summation  on  i  =  1, ...,  6  and  j 
=  1, ...,  6  is  implied  by  the  repeated  subscripts.  Introducing  Eq  (4.96)  into  Eq  (4.97)  yields 


C..{d} 

ij  '■  ^ 


(L.)  (l/+  (i.)  {d}'^ 


(4.98) 


H 


{d}  dV-{d}  {P} 


Notice  at  this  point,  Eqs  (4.96),  (4.97),  &  (4.98)  are  expressed  in  terms  of  [d],  the  con¬ 
tinuum  displacement  gradient  vector.  No  finite  element  discretization  has  been  used.  Thus, 
these  equations  represent  an  element  independent  formulation.  By  defining  an  element 
approximation  for  the  continuum  displacements  displacements  {d]  in  terms  of  nodal  dis¬ 
placements  {<7),  one  defines  a  specific  formulation.  To  provide  a  general  formulation, 
however,  the  stiffness  matrices  of  Eqs  (4.88)  -  (4.95)  can  be  developed  in  terms  of  the  ele¬ 
ment  independent  formulation  of  Eqs  (4.96)  -  (4.98).  In  this  fashion,  we  seek  definitions 
for  [K],  [Nj],  and  [7/2],  such  that  Eqs  (4.88)  -  (4.95)  will  hold.  Rajasekaran  and  Murray 
showed  that  the  direct  comparison  of  the  terms  of  Eq  (4.98)  and  those  of  Eq  (4.88)  will 
yield  arrays  [^/]>  and  [A^2]  which  satisfy  Eq  (4.98).  Unfortunately,  these  arrays  will 


not  satisfy  the  formalism  of  Eq  (4.95).  In  some  cases,  they  will  not  even  satisfy  Eq  (4.94). 
They  showed  that  consistent  representations  of  these  arrays  are  given  by  the  following 
expressions 


T 

=  C..{L.}  {L.} 


(4.99) 


A^i 


=  c..^  {L.}  {ti} 


H 


+  {d}  {L,} 


H. 


P  L 


(4.100) 


+ 


H 


{d}  {L.} 


4-37 


(4.101) 


f  r 


=  c.. 

0 


V 


H. 


{d}  {d} 


1 


[fij\^2{d} 


H 


{d} 


H. 

I 


Rajasekaran  and  Murray's  formulation  was  for  finite  elements  where  strains  do  not¬ 
vary  through  the  thickness  of  the  element.  This  formulation  is  extended  to  account  for 
variation  of  strain  through  the  thickness  [48:79-91].  To  do  this,  one  assumes  strains  at  a 
point  in  the  shell  are  represented  by  the  following  series  expansion 

2d  +  g 

n  n 

,  (4.102) 

■  t-  ^ 

P  =  1 

where 


3-2.  J-s)  =  +  E  ZK 


yj  =  the  distance  from  the  midsurface  in  the  direction 

coefficients  of  y’j  appearing  in  the  strain  expression 
d  =  the  degree  of  the  displacement  field  expression,  and 

g  =  the  degree  of  the  series  expansion  approximation  of  shell  shape  factor  functions 
appearing  in  the  strain  tensor. 

Rewriting  Eq  (4. 102)  consistent  with  Eq  (4.96),  one  obtains 
n 

p  =  0 

where 

(L/*)  =  a  row  array  of  the  constant  coefficients  of  terms  in  E;  containing  only  one 
displacement  parameter  and  the  thickness  coordinate  yj  to  the  power  p,  and 

[Hf]  =  a  symmetric  array  of  the  coefficients  for  terms  in  £(•  containing  products  of 
displacement  parameters  and  the  thickness  coordinate  yj  to  the  power  p. 

With  this  power  series  expansion  of  strains,  for  an  elastic  analysis,  the  terms  of  Eq 
(4.98)  are  written  as 


{d} 


y3 


(4.103) 
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n  n 


p  =  Or  =  0 


(4.104) 


+  ff.  {d}  {lJ}  ) 


(4.105) 


n  n 


where 


=  I  I  \c,\\iA{d]  {d}^y 


p  =  0r  =  0 


+  H.  {d}  {d} 

-  *J  -  J. 


C,-jiQ,yr'^)dy 


3  ’ 


(4.106) 


(4.107) 


are  the  higher  order  elasticity  arrays  and  sununation  on  i,j  =1,2,  4-6  is  implied.  Notice 
that  these  equations  are  a  result  of  directly  substituting  definitions  of  (L,)  and  [Hi]  into 

Eqs  (4.100)  -  (4.101).  These  expressions  do  not  satisfy  the  formalism  of  Eqs  (4.88)  - 
(4.95).  In  a  fashion  similar  to  Rajasekaran  and  Murray's  formulation,  Eqs  (4.104)  - 
(4.106)  can  be  manipulated  to  yield  new  definitions  for  arrays  [K],  [A^;],  and  [N2]  that  sat¬ 
isfy  the  formalism  of  Eqs  (4.88)  -  (4.95) 


n  n 


p  =  Or  =  0 


(4.108) 
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n  n 


=  IIS 

p  =  0r  =  0 


h" 

L  U 


^[L.  {d} 


H^. 


,  (4.109) 


H^. 

J. 


T(  r 

^{d}  [l. 


I 


+ 


h'. 

I 


{d^XL". 


n  n 


=  I  Ik 


[d]  {d} 


p  =  Or  =  0 


(4.110) 


+ 


1 

{d)  {d)'^ 

'  ^35  ‘ 

1  --g _ 1 

If  T 

h” 

1  Jj 

{d} 

i 

+  {d} 


H'. 

.  J 


{d} 


H^. 

I 


Equation  (4.109)  can  be  simplified  and  still  retain  the  formalism  of  Eqs  (4.88)  -  (4.95)  (see 
[48:87-89]  for  the  exact  discussion  concerning  this  simplification).  The  simplified  version 
ofEq  (4.109)  is 


n  n 

Ilfv 

p  =  Or  =  0 


[d] 


.  n 


+ 


(4.111) 


With  the  definitions  of  (L/^),  [Hf],  [A"],  [A^i  ],  and  [A^2],  one  can  now  form  the  ele¬ 
ment  independent  stiffness  arrays  given  by  Eqs  (4.108),  (4.110),  &  (4.111).  This  formula¬ 
tion  requires  literally  hundreds  of  matrix  multiplications  to  evaluate  these  equations. 
MACSYMA,  a  symbolic  solver/generator  program,  was  used  to  accomplish  this  task. 
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4.3.2  Large  Strain  Formulation:  To  consider  a  large-strain  analysis,  the  potential 
energy  equations  (Eqs  (4.97)  &  (4.98))  remain  in  the  same  form.  The  strains  are  given  in 
the  total  Lagrangian  form  of  Eqs  (4.102)  &  (4.103).  Thus,  refer  back  to  Eqs  (4.108), 
(4. 1 10),  &  (4. 1 1 1)  to  determine 


n  n 


1 


V  JJ 


.FiF, 

V  ij\  ]  J 


\r 


p  =  0r  =  Q 

n  n 


=  I  I  C*ii 


^J(p  +  r) 


F]{d}^ 


H. 


p  =  Or  =  0 


(4.112) 


(4.113) 


H'. 

.  J. 


+ 


H'. 


id}[L^ 


n  n 


^0 


H^. 


{d}  {d} 


H. 
L  7J 


/?  =  Or  =  0 


(4.114) 


H. 


{d}  {d} 


y- 

L  J. 


\f  T 

+  0  {d} 


r  n 

ff. 

.  J. 


{d} 


H. 

I 


where 


+  {d} 


L  J. 


{d} 


C* 


(p  +  r) 


(p  +  r) 


]dy. 


(4.115) 


are  the  higher-order  elasticity  arrays,  with  the  material  transformation  matrices  (T ;)  and 
(T2)  included,  and  summation  ij  =1,2, 4-6  is  implied. 
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4.3.3  Elastic-Plastic  Formulation:  Since  plasticity  is  unconservative  from  a  total 
potential  energy  formulation,  an  alternative  approach  is  considered.  Hill  [79]  and  Washizu 
[229]  showed  that  from  an  incremental  formulation,  plasticity  is  considered  to  be  conser¬ 
vative  for  the  incremental  since  plasticity  is  considered  to  be  conservative  from  an  incre¬ 
mental  potential  energy  expression.  Thus,  recalling  the  form  of  Eq  (4.86)  we  have,  for  an 
orthotropic  lamina 

Iff  —ep  2  —^P  2  —^P 

At/f  =  2J  I^QiiAe^ +  Q22Ae2  + 2 <212^^1  ^^2  ’ 

—ep  —ep  —ep  2  ^ 

-h  2(2i6Ae^A8g  +  2<226A£2A£g  +  jdV 

Iff  —ep  2  —^P  —^P  2  ^ 

At/2  =  2J^1^44A£4  +  2Q45A£4A£3  +  (255A£3  Ji/y 

such  that  AU  =  AU j  -i-  At/2-  Frorn  Eq  (4.87)  one  develops  an  elasto-plastic  array,  of 
the  form 
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(L,)  =  a  column  array  of  the  constant  coefficients  of  terms  in  Ae,-  containing  only 
one  displacement  parameter  (the  terms  are  linear  with  respect  to  displacement),  and 
[Hj]  =  a  symmetric  array  of  constant  coefficients  of  terms  in  Ae,-  containing  the 
product  of  two  displacement  parameters  (the  terms  are  quadratic  with  respect  to 
displacement). 

Using  Eq  (4.118)  and  defining  the  terms  for  a  specific  Ae,-  as  Ae^,  +  Ae^^,,  the  expres¬ 
sion  for  incremental  potential  energy  of  an  elasto-plastic  material  is  written  as  (following 
the  format  of  Eq  (4.97)) 


An 


-if 

“  2J. 


■  y 


,  L ,  L  ^  NL  ^  NL  , 

Ae.  Ae.  +  2Ae.  Ae.  +Ae.  Ae.  \dV 

I  j  I  j  I  J 


(4.119) 


-{AJ}  {P} 


where  is  the  symmetric  array  of  elasto-plastic  coefficients,  determined  at  each  incre¬ 
ment  of  displacement  or  load.  Introducing  Eq  (4. 118)  into  Eq  (4. 119)  yields 


An  =  5J 

p  2J, 

+  {^d} 


(A,)  (Z.  )^+(L.){A<i}^ 


h 


(4.120) 


{Ad}  dV-{Ad}  {P} 


The  incremental  elasto-plastic  forms  of  the  [AT],  [fj\  ],  and  [A^z]  arrays,  similar  to  Eqs 
(4.99)  -  (4.101)  (the  generalized  Rajasakeren  and  Murray  equations),  are 
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ep 


p  \i 
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H. 
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(Ad)  (L.) 
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(4.121) 

(4.122) 
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H. 
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1  T 
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H. 
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(4.123) 
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Since  the  strains  do  vary  through-the-thickness,  a  consistent  incremental  expression  (fol¬ 
lowing  Eq  (4.103))  is  given  by 


n 

=  S  (  (4) \{Adf  {Ad}  ,  (4.124) 


where 

(L/’)  =  a  row  array  of  the  constant  coefficients  of  terms  in  Ae,-  containing  only  one 
displacement  parameter  and  the  thickness  coordinate  to  the  power  p,  and 

[Hf]  =  a  symmetric  array  of  the  coefficients  for  terms  in  AEj  containing  products  of 
displacement  parameters  and  the  thickness  coordinate  to  the  power  p. 

To  consider  an  elastic-plastic  analysis,  refering  back  to  Eqs  (4.108),  (4.110),  & 
(4.111)determines  that  including  Eq  (4.124)  in  Eqs  (4.121)  -  (4.123)  yields 


n  n 
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p  =  0r  =  0 


ep 

^J{p  +  r) 


n  n 


si’]  -  X 


^  =  Or  =  0 


+  h}  +  {hd][L'’J 

n  n 


p  =  0r  =  0 


+  h".  {Ad}  {Ad}^  +5(  {Ad}^  ff.  {Ad}  h'' 

_  (J  L  Jj  L  Jj  L  *_ 


(4.125) 


(4.126) 


,  (4.127) 


rf  1  r  1^1 
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where 


<L.-&Sir 


V  2,73 


(p  +  r) 


\dy. 


(4.128) 


are  the  higher-order  elastic -plastic  arrays,  with  the  material  transformation  matrices  {T j) 
and  {T2)  included,  and  summation  ij  =1,2, 4-6  is  implied. 


4.4  Symbolic  Generation  of  the  Elemental  Codes 

A  significant  accomplishment  of  this  research  was  the  development  of  a  tool  to  gener¬ 
ate  comparable  versions  of  "elemental  code".  The  results  comparing  various  theoretical 
attributes  would  be  meaningless  if  undetected  errors  were  present  in  some  variations,  or  if 
different  finite  element  models  or  discretization  schemes  were  used.  For  this  research,  a 
reliable  system  of  generating  different,  but  comparable,  versions  of  code  was  required.  A 
MACSYMA  routine  was  developed  from  previous  work  in  Smith  [207]  to  symbolically 
generate  the  assumed  displacement  field,  determine  the  strain  components,  determine  the 
shell  shape  factor  approximations,  determine  the  elements  of  the  strain  definition  arrays, 

and  finally  generate  the  Fortran  code  for  the  elements  of  the  [^],  [tCs  ],  [ff\  ],  [^2  ]. 

and  [f^2s  ]  stiffness  arrays  which  includes  spherical  geometry.  Development  of  this  routine 
was  crucial  apsect  of  this  research.  With  elemental  codes  approaching  40,000  lines  in 
length,  the  detection  of  errors  by  "hand  generation"  would  have  been  virtually  impossible. 
The  symbolic  generation  of  codes  assures  reliability  and  comparability  not  achievable  by 
other  means.  By  using  these  codes  in  an  element  indepedent  formulation,  the  accuracy  of 
each  version  of  theory  could  be  compared  using  the  same  finite  element  model  and  main 
program  (SHELL).  This  further  assured  a  fair  comparison  of  the  various  theoretical 
attributes  of  each  version.  The  only  variables  were  the  displacement  field  (Donnell 
approximation,  modified  Donnell  approximation  with  linear  transverse  shear,  or  the  cubic 
displacement  field  of  Eq  (3.72)),  constitutive  relations  (elastic  or  elastic-plastic)  and 
whether  the  choice  to  include  the  material  coordinate  transformations.  The  theoretical 

attributes  of  the  elemental  codes  used  for  this  research  are  summarized  in  Table  1. 
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Table  1  Definitions  of  Elemental  Codes  for  Variations  of  Theory 


Code 

Displacement 

Constitutive 

Material 

Equations 

Name 

Assumption 

Relations 

Coordinate 

Given  in 

GXYZ 

Field 

Analyzed 

Transformations 

Appendix 

Elastic 

Not  Included 

Elastic 

Included 

c 

Elastic-Plastic 

Included 

c 

Elastic 

Not  Included 

D 

Elastic 

Included 

D 

Elastic-Plastic 

Included 

D 

Elastic 

Not  Included 

E 

Elastic 

Included 

E 

Elastic-Plastic 

Included 

E 

(1)  «,•  defined  in  Eq  (C.2) 


(2)  M(  defined  in  Eq  (D.2) 


(3)  M,-  defined  in  Eq  (E.2) 


The  codes  are  identified  by  a  symbol  "GXYZ",  where 

G  =  P  for  plate,  C  for  cylindrical,  S  for  spherical,  or  A  for  arbitrary  shell  geometry 
Appendix  A  lists  relations  for  arbitrary  shells  and  Appendices  B  through  D  list  relations 
for  spherical  shells.  The  plate  and  cylindrical  shell  relations  are  embedded  within  the 
spherical  shell  relations.  They  are  derived  by  setting  the  parameters  D  and/or  C  to  zero, 

X  =  0  for  the  Donnell  approximation  displacement  field  of  Eq  (B.2),  1  for  the  modified 
Donnell  approximation  displacement  field  of  Eq  (C.2),  or  2  for  the  cubic  displacement 
field  ofEq  (D.2), 

F  =  0  for  an  elastic  analysis,  or  1  for  an  elastic-plastic  analysis,  and 
Z  =  0  for  no  material  coordinate  transformations,  or  1  to  include  material  coordinate 
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transformations  from  Eulerian  to  Lagrangian  coordinates. 


The  MACSYMA  routine  for  generating  elemental  codes  is  included  as  Appendix  E. 
The  routine  includes  comment  statements  to  explain  some  special  functions,  called  mac¬ 
ros,  and  a  few  comments  to  explain  the  steps  in  the  process.  The  generation  of  each  ver¬ 
sion  of  elemental  code  follows  the  same  steps  listed  in  Reference  [207: Chap  4,20-24]. 


4.5  Finite  Element  Solution 


The  element  independent  stiffness  matrices  of  Eqs  (4.108),  (4.110),  &  (4.111)  depend 
upon  the  continuum  displacement  gradient  vector  {(i).  This  vector  includes  the  following 
functions:  u,  u  j,  U2,  v,  v;,  V2,  w,  w  j,  w  jj,  W22,  w/2,  M/y,  \j/y ;,  \\fj  2,  \\f2,  ^2,1’ 

¥2,2-  Likewise,  the  potential  energy  of  Eqs  (4.97)  &  (4.98)  also  depend  upon  these  func¬ 
tions.  Using  a  standard  displacement-based  finite  element  method,  the  18  two-dimen¬ 
sional  functions  of  the  continuum  displacement  gradient  vector  {d(yj,  y2)}  are 
approximated  by  interpolation  from  discrete  values  of  nodal  displacement  parameters. 
These  nodal  parameters  or  degrees  of  freedom  (dof),  are  defined  only  at  a  finite  number  of 
points  or  nodes  and  are  denoted  by  {^}  in  Eq  (4.129) 


{q} 


(4.129) 


where  [£)  (sj,  ^2)]  is  an  array  of  nodal  interpolation  functions  and  (sj,  S2)  are  the  localcoor- 
dinates  of  a  two-dimensional  rectangular  finite  element. 

4.5.1  Elastic  Finite  Element  Solution:  If  one  substitutes  Eqs  (4.108),  (4.110),  (4.111), 

&  (4.129)  into  Eq  (4.88)  and  rewrites  the  expression  in  terms  of  {q},  the  one  obtains  for 
the  elastic  potential  energy 


(4.130) 
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where 
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J  =  JvL^J 

h 

7  f  r  ■ 
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dV 

dV 

dV 


(4.131) 


The  finite  element  method  generally  requires  the  computation  of  the  stiffness  matrices  of 
Eq  (4.131)  for  each  element  independently.  These  elemental  stiffnesses  are  then  assem¬ 
bled  according  to  their  relationship  to  global  nodes  of  the  structure.  In  this  manner,  Eq 
(4.130)  represents  the  potential  energy  of  a  single  element.  The  total  energy  of  the  system 
is  then  found  by  summing  the  energies  of  each  element. 

4.5.2  Large  Strain  Finite  Element  Solution:  The  large  strain  potential  energy  is  given 


by  incorporating  Eqs  (4.112),  (4.113),  (4.114),  and  (4.129)  into  Eq  (4.98),  and  rewriting  in 
terms  of  {<?}.  Thus, 


n  = 


{q} 


N*- 


^6 


{q}-{q}  {P} 


(4.132) 


where 


H  =  \v[t>. 
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t)\^ 

T 

fi 
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.^’2]  =  Ivt. 
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ftz 

p 

dV 


dV 


(4.133) 


4.5.3  Elastic-Plastic  Finite  Element  Solution:  The  incremental  elastic-plastic  potential 


energy  is  given  by  [229] 

AU  =  ^j^({Ae}^{AG})t/y  ,  (4.134) 

or,  following  the  format  of  Eq  (4.97),  the  incremental  elastic-plastic  potential  energy 
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becomes 


ep{  ^  LL  NL  ,  NL ,  NL\ 

C.  Ae. Ae.  +  2A£. Ae.  +Ae.  Ae.  dV  ,  (4.135) 

r  u  \  I  I  11  I  1  )  ’  ^  ’ 


-{A^}  {P} 


where  is  the  symmetric  array  of  elastic-plastic  constants  and  summation  on  ij  =1,2, 
4-6  is  implied  by  the  repeated  subscripts.  Introducing  Eq  (4.96)  into  Eq  (4.135)  yields 

=  si  .  (4.136) 

+  i[H]{Ad}  {Arf} ’'[«]]  {Ad}  )dV-{Add{P} 

Eq  (4.129)  must  be  modified  to  represent  this  incremental  formulation.  Thus,  the 
nodal  dof  take  on  an  incremental  formulation,  and  are  defined  by 

{Ad{y^,y2)}  =  £)(s^,S2)  {A^}  .  (4.137) 

Incorporating  Eqs  (4.125),  (4.126),  (4.127),  &  (4.137)  into  Eq  (4.136),  and  rewriting  in 
terms  of  {Aiy}.  Thus,  the  final  form  of  the  incremental  elastic-plastic  potential  energy 
takes  the  form 

TV  1 

An^  =  2^  W  +  5  K'’  ,  (4.138) 

where 

=  IvH  All'’  .  (4.139) 

Carrying  out  the  variation  of  Eq  (4.139),  one  obtains 
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8(Anp  =  8({A9}^)(([^p]  +i  tfP  (4.140) 

^  T 

-{P}J  =  5({A^}  )F{^q)  =  0 

Then  for  an  arbitrary  and  independent  5(A(7),  and  following  the  derivations  of  Eqs  (4.90)- 
(4.92),  the  solution  for  an  iterative  manner  via  a  Newton-Raphson  technique  is  given  by 

([a:‘''’]+  )(A(A9))  =  [/fj.]  (A  (A?) )  .  (4.141) 

=  -F(A«) 

Thus,  incremental  elastic-plastic  equilibrium  equation  is  given  by 

(  M  5  (Vf  +  5  )  { A?}  -  {P}  =  {0}  ,  (4.142) 

and  the  linearized  incremental  elastic-plastic  equilibrium  equation  is  given  by 

([is:^p]+  Vj'’  +  ){A{A?}}  -  {P}  =  {0}  .  (4.143) 

4.6  The  36  Degree-of -Freedom  Finite  Element 

Defining  the  terms  of  Eqs  (4.130),  (4.132),  and  (4.138)  requires  definition  of  the  spe¬ 
cific  element,  since  the  nodal  parameters  [q]  and  the  associated  nodal  interpolation  array 

52)]  are  element  specific.  Recall,  the  three  stiffness  arrays  [k],  [A^i  ],  and  [A^2]  of 

Eq  (4.131),  the  three  stiffness  arrays  [AT*],  [k\  *],  and  [A^2  *]  of  Eq  (4.133),  and  the  three 

stiffness  arrays  [k^P],  and  of  Eq  (4.139)  are  element  independent.  The 

choices  of  the  number  of  nodes  per  element  and  the  nodal  degrees  of  freedom  at  each  node 
have  not  been  specified  at  this  point.  In  fact,  virtually  any  two-dimensional  element  that 
will  provide  values  of  the  18  functions  of  the  continuum  displacement  gradient  vector  [d] 
could  be  used. 

The  author's  research  objective  is  to  investigate  structural  phenomena.  Thus,  an  exist- 
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ing,  proven  finite  element  model  for  laminated  cylindrical  and  spherical  shells  was  used 
for  this  research.  For  the  SIXX  and  S2XX  elemental  codes,  the  element  chosen  was  the  36 
degree  of  freedom  (DOF)  quadrilateral  curved  shell  element  described  in  Reference 

[48:95-111].  This  element  has  been  used  for  many  investigations  of  static  and  dynamic 
response  of  plates,  arches,  and  cylindrical  shells  undergoing  large  displacements  with  an 
elastic  cubic-nonlinear  HTSD  theory  [49-51, 159,  160,  197,  198,  204,  207,  208,  217,  223, 
224].  In  addition  to  these  investigations,  many  linear  problems  were  used  to  validate  the 
element's  performance.  These  problems  included  typical  flat  plate  and  patch  tests  used  to 
show  convergence  as  the  number  of  elements  in  a  mesh  is  increased  [160].  These  patch 
test  problems  were  based  upon  a  linear  analysis,  not  a  nonlinear  analysis.  This  is  because 
the  patch  test  is  based  upon  the  mathematical  theory  of  linear  partial  differential  equa¬ 
tions.  Since  the  element  stiffness  array  includes  nonlinear  terms,  the  element  will  not  pass 
the  usual  definitions  of  the  patch  test  unless  the  nonlinear  terms  are  eliminated.  For  the 
nonlinear  problem,  convergence  cannot  be  proven  by  a  simple  patch  test.  Convergence 
must  be  demonstrated.  The  36  DOF  element  is  shown  in  Figure  4.5.  This  element  has 
eight  nodes  with  seven  degrees  of  freedom  u,  v,  w,  w  j,  W2,  Vj//,  and  \j/2,  at  each  comer 
nodes  and  two  degrees  of  freedom,  u  and  v,  at  the  four  midside  nodes.  The  two  degrees  of 
freedom  at  the  midside  nodes  allow  for  quadratic  interpolation  of  in-plane  displacements 
of  u  and  v.  This  is  important  for  shells  due  to  the  curvature-induced  coupling  of  bending 
and  membrane  activity  in  shells. 

The  continuum  values  of  u  and  v  are  interpolated  from  the  nodal  values  uj^  and  v^, 
using  Eq  (4.144)  where  2^  are  quadratic  Lagrangian  interpolation  functions  given  in  Eq 
(4.145)  [48:110] 


/  8  \ 

r  8 

«  =  X 

y 

■'  =  X  Qk^k 

^  k=l  ^ 

^  k=\  ^ 

(4.144) 
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(4.145) 


Qk  =  +  (^=  1-4) 

Qk  =  (l+iliil).  ik  =  6,%) 

Qk  =  \a-n)  +  (^  =  5,7) 


where  the  node  has  natural  coordinates  =  sjjJ a  and  =  S2iJb.  The  natural  coordi¬ 
nates  correspond  to  global  coordinates  (sj,  S2)  is  the  longitudinal  and  circumferential 
directions  shown  in  Figure  4.5. 

The  continuum  displacement  gradient  vector  {d}  includes  rotational  degrees  of  free¬ 
dom  V|/;  and  V|/2  and  the  first  derivatives  of  these  parameters.  The  parameters  V]/;  and  \|/2 

are  shown  in  Figure  4.6.  Linear  interpolation  can  be  used  for  these  parameters,  since  only 
C®  continuity  is  required.  The  interpolation  functions  of  Vj/;  and  \|/2  are  given  by  Eq 


(4.146)  with  the  linear  Lagrangian  interpolation  functions  of  Eq  (4.147)  [48:103]. 

4  w  4 

Vi  =  X  .  U2  =  X 

k=l  '  k=l 

Wj  =  5(1 (1+11^11)  .  (4.147) 

The  continuum  displacement  gradient  variables  associated  with  transverse  displace¬ 
ment  w,  include  w  and  it's  first  and  second  derivatives.  Figure  4.6  shows  w,  w  j,  and  W2 
(for  moderately  large  rotation  theory  only).  Nodal  parameters  associated  with  transverse 
displacement  include  only  the  values  w and  W  2k  at  the  four  corner  nodes  where  k  = 

1-4.  Interpolation  of  w  is  accomplished  using  Eq  (4.148)  and  the  Hermitian  shape  func¬ 
tions  of  Eq  (4.149)  [48:103], 

4 


(4.146) 


w  (5^,52) 


k=  1 


(4.148) 
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Figure  4.5  36  DOF  Spherical  Shell  Finite  Element  -  For  S IXX  &  S2XX  Codes 

H2k  =  (1+Tl^ri)^^  .  (4.149) 

b  2 

The  approximate  continuum  values  for  derivatives  of  u,  v,  w,  \j/;,  and  \|/2,  at  any  point 
(^,  r|)  in  the  element,  are  also  found  by  interpolation.  This  is  accomplished  by  using  the 
corresponding  derivatives  of  the  interpolation  functions.  Thus,  the  approximate  contin¬ 
uum  displacement  vector  is  related  to  the  array  of  discrete  nodal  degrees  of  freedom  as 
shown  below 

{‘/(^.n)}  =  [6(5,11)]  {?}  .  (4.150) 
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H\ 

HI 

H3 

H2^ 

H3^ 

H3„ 

T1 

H2  „ 

H3^ 

TlTl 

riri 

(4.153) 


In  Eq  (4.151),  the  numerical  subscripts  refer  to  node  numbers.  In  Eqs  (4.152)  & 
(4.153),  the  Greek  subscripts  imply  differentiation  with  respect  to  the  indicated  natural 
coordinatevariable.  The  k  subscript  implies  that  natural  coordinates  and  appearing  in 
each  interpolation  functions  are  to  be  assigned  values  corresponding  to  the  natural  coordi¬ 
nates  of  the  node.  In  Eq  (4.150),  notice  that  {<7}  is  an  36  x  1  array  of  nodal  displace¬ 


ments,  [£)]  is  an  18  X  36  array,  and  the  resulting  array  {d{^,  r|)}  is  an  18  x  1  array  as 
expected.  Transformation  of  coordinates  using  the  inverse  of  the  Jacobian  matrix,  [J],  as 
shown  in  Eq  (4.154),  completes  the  definition  of  the  element  interpolation  scheme 


^  (“^1’  ^2) 


-ir 


j 


(4.154) 


where  [J]'^  is  a  diagonal  matrix  for  the  transformation  of  coordinates  used  in  this  research. 
Note  that  [7]'^  is  given  by 


where 


Fj  0  0 

0  r,  0 
0  0 


(4.155) 
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and 


10  0  0 

01/a  0  0 

_  0  0  1/^  0 
1  ~  0  0  ^  1 
0  0  0  0 
0  0  0  0 


10  0  0 

0  1/a  0  0 

0  0  1/Z?  0 

000  1/a^ 

0  0  0  0 

0  0  0  0 


where  a  and  b  are  defined  in  Figure  4.5. 
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0  \/b 


0  0 
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\/b^  0 

0  1/ {ab) 


(4.156) 


(4.157) 


With  this  finite  element  discretization,  Eq  (4.95)  is  written  for  an  elastic  formulation  as 


m 

I 

n  =  1 


I H' 


=  {P}- 


m  r 


k 


+ 


b 


dA 


n 
Jn 


n  =  1 


k 


■^3 


b 


dA 


n 
jn 


,  (4.158) 


{q} 


where 

dA„  =  the  two-dimensional  domain  of  an  individual  element  n 
=  [J]dA^  in  the  natural  coordinate  system 
m  =  the  total  number  of  elements  in  the  mesh 
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{A<?}  =  the  global  column  array  of  nodal  displacement  parameters  assembled  from 
elemental  array 

{^}  =  the  global  column  array  of  nodal  displacement  parameters  assembled  from 
elemental  array  {q}^ 

{^}„  =  a36xl  nodal  displacement  array  for  element  n 

{A^}„  =  a  36  X  1  incremental  nodal  displacement  array  for  element  n,  and 

{i?}  =  the  global  load  array  which  has  the  same  dimension  as  the  global  displacement 

arrays  {Aq}  and  {q}. 


The  integrations  of  Eq  (4.158)  are  approximated  by  numerical  integration  using  Gaus¬ 
sian  quadrature.  Using  one  of  the  terms  of  the  first  summation  of  Eq  (4.158)  as  an  exam¬ 
ple,  the  integral  /„  shown  in  Eq  (4.159),  can  be  transformed  to  natural  coordinates  as 


shown  in  Eq  (4.160).  Next,  the  integration  of  Eq  (4. 160)  are  approximated  numerically  by 
a  double  summation  of  weighting  factors  at  the  corresponding  Gaussian  integration  points. 
This  is  shown  in  Eq  (4.161). 
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(4.159) 


(4.160) 


P  r 

i  =lj  =  l 


where 

det  [7]  =  the  determinant  of  the  Jacobian  matrix 


(4.161) 


/(^,  Ti)  =  [£)  ]^{  [^]  +  [A^i  ]  +  [fJ2  ] } [£>  ]del  [7]=  evaluated  at  Gauss  integra¬ 
tion  points  (^,  ri) 

WiWj  =  the  weighting  factors 
p  =  number  of  Gauss  points  in  ^-direction 
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q  =  number  of  Gauss  points  in  T] -direction. 


The  arranged  indices  i  and  j  define  the  order  of  numerical  integration.  When  m  =  n  the 
interation  is  called  uniform.  An  n  x  n  integration  will  exactly  integrate  a  polynomial  inte¬ 
grand  of  order  2n-l  [44:172].  For  this  effort,  a  36-dof  element  would  require  a  7  x  7 
Gauss  quadrature  (49  Gauss  points)  for  an  exact  integration.  However,  Dennis  [5i,  160], 
Smith  [207,  208],  and  Tsai  [223]  have  shown  that  a  5  x  5  Gauss  quadrature  (25  Gauss 

points)  yields  accurate  results  for  the  higher-order  element  (see  Figure  4.7).  The  reduced 
Gauss  quadrature  yields  a  dramatic  decrease  (-50%)  in  the  computational  requirements 
needed  for  the  element.  Thus,  for  this  research,  the  reduced  Gauss  quadrature  was  incor¬ 
porated  into  the  formulation.  It  should  also  be  pointed  out  that  this  array  of  integration 
points  are  used  in  the  determination  of  the  appropiate  Jacobian  transformations,  for  the 
entire  thickness,  incorporated  in  the  Lagrangian-Eulerian  relationships. 


Figure  4.7  7x7  and  5x5  Gauss  Quadrature  Elements 


The  solution  of  Eq  (4.158)  is  accomplished  by  an  incremental-iterative  technique  com- 
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monly  called  the  Newton-Raphson  method  [48:115-127].  The  parameters  to  be  incre¬ 
mented  are  the  elements  of  the  array  [q]  containing  global  degrees  of  freedom.  For  the 
first  iteration  of  the  first  increment,  all  elements  of  {(?}  are  assumed  to  be  zero  and  a  linear 

solution  of  Eq  (4.158),  one  involving  only  [A’],  is  found  by  Gauss  elimination.  This  solu¬ 
tion,  call  it  [q] I ,  is  used  during  the  next  iteration  to  compute  [A^i  ]  and  [A^2].  Equation 


(4.158)  is  then  solved  using  [^],  [A^i  ],  and  to  generate  a  new  solution,  call  it  {q]2- 
This  process  continues  until  the  solution  for  {^}  has  converged.  The  following  criterion  is 
used  to  determine  convergence 

where  and  {<?,} ;  are  the  elements  of  {(?,}  for  the  and  first  itera¬ 

tions,  respectively,  for  a  given  increment.  The  criterion  is  satisfied  when  the  left  hand  side 
of  Eq  (4. 162)  is  less  than  or  equal  to  V ,  a  user  specified  percentage  tolerance.  Values  of  V 
ranging  from  0.01  to  0.5  percent  were  chosen  for  the  problems  investigated.  For  each 
solution  discussed  in  Chapter  5,  values  of  V  are  specified.  The  increment  of  displacement 

is  chosen  to  be  1/10^^-1/15^’^  of  the  total  displacement  desired  for  the  particular  problem  of 
interest. 
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2\l/2 
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xl00<V  , 


(4.162) 


For  an  elasto-plastic  approach,  an  incremental  formulation  is  incorporated.  The  incre¬ 
mental  forms  of  Eqs  (4.144),  (4.146),  &  (4.148)  are 
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4 


k=  1 

where  Eqs  (4.145),  (4.147),  &  (4.149)  hold  for  Nj^,  &  respectively.  Thus,  the 
approximate  incremental  continuum  displacement  vector  is  given  as 


{Aq} 


(4.166) 


where  [£)](^,  9)]  is  defined  by  Eq  (4.151)  and  Eqs  (4.152),  (4.153),  &  (4.154)  hold. 

With  this  finite  element  discretization,  Eq  (4.95)  is  written  for  an  elasto-plastic  formu¬ 
lation  (following  the  form  of  Eq  (4. 158))  as 
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{Aq} 


where  [AT],  [A^i  ],  and  [ki]  are  dependent  on  {A^}. 

The  solution  of  Eq  (4.167)  is  accomplished  in  the  same  manner  as  for  Eq  (4.158). 
However,  instead  of  iterating  to  a  converged  solution  for  the  array  {<?},  the  solution  con¬ 
verges  for  the  array  {A^}.  Thus,  Eq  (4.162)  takes  on  the  incremental  form  of 


X  100  <  V 


(4.168) 


where  {A^,}p  {A^j}^.;,  and  {A^,-}/  are  the  elements  of  {A^}  for  the  1^^,  and  first 

iterations  respectively,  for  a  given  increment.  The  criterion  is  satisfied  when  the  left  hand 
side  of  Eq  (4.168)  is  less  than  or  equal  to  V ,  a  user  specified  percentage  tolerance.  Values 
of  V  ranging  from  0.01  to  0.05  percent  were  chosen  for  the  problems  investigated.  For 
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each  solution  discussed  in  Chapter  6,  values  of  V  are  specified.  For  same  value  of  V  sec- 
ified  for  the  elastic  solution,  the  increment  of  displacement  was  chosen  to  be  the  same  as 
the  elastic  solution.  However,  once  approximately  20%  of  the  outer  surface  exhibited 
strains  greater  than  2.5%,  the  displacement  increment  was  halved  to  maintain  the  same 
convergence  tolerance  for  equilibrium. 


At  this  time,  a  brief  discussion  regarding  the  through-the-thickness,  elastic -plastic 
analysis  is  presented  by  refering  back  to  Figure  4.2,  along  with  Figure  4.8  above.  For 
every  Gauss  point  considered  in  a  5  x  5  Gauss  quadrature  elastic -plastic  solution  (refer  to 
Figure  4.7),  it  assumed  that  the  Gauss  point  extends  through  the  element  and  a  Guass  point 
is  given  for  each  layer  considered.  Thus,  at  each  iteration  of  every  increment  of  displace¬ 
ment,  the  stress-strain  state  is  tracked  for  every  Gauss  point,  at  each  seperate  layer,  within 
the  element.  Thus,  refering  back  to  Figure  4.2,  as  the  outer  layers  become  plastic,  the 
associated  Guass  points’  stress  state  within  those  layers  exceeds  the  yield  stress,  a  >  Gy, 
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and  are  behaving  in  an  elastic -plastic  manner.  The  remaining  Gauss  points  for  the  other 
layers  are  still  considered  to  behave  in  an  elastic  manner  since  they  have  not  reach  the 
condition  a  >  For  the  Gauss  point(s)  in  the  layer(s)  where  a  >  Gy,  the  consitutive  rela¬ 
tions  are  modified  to  follow  Eqs  (4.10a)  or  (4.21a)  for  isotropic  or  orthotropic  material, 
respectively.  Then,  the  consitutive  relations  are  integrated  through-the-thickness  to  gener¬ 
ate  the  elasticity  arrays  -  7^  discussed  in  Eq  (4.117).  These  in  turn,  are  used  to  calcu¬ 
late  the  stiffness  arrays,  [kfP,  [A^i  and  [A^2  ■ 


4. 7  The  28  Degree-of -Freedom  Finite  Element 


4.7.1  SIXX  &  S2XX  Codes:  For  the  SIXX  &  S2XX  codes,  when  the  in-plane  contin¬ 
uum  displacement  dof,  u  and  v,  are  not  directly  coupled  to  the  transverse  displacement  dof 
as  in  a  linear  anlysis  of  a  cylindrical  or  spherical  shell,  or  if  a  flat  plate  is  being  analyzed, 
then  a  simpler  finite  element  may  be  used.  By  removing  the  additional  dof,  u  and  v,  at  each 
of  the  midside  nodes,  a  28  DOF  finite  element  is  developed  with  linear  approximations  for 
the  in-plane  dof  u  and  v  (see  Figure  4.9).  Thus,  Eqs  (4.144)  &  (4.145)  become 
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where  are  linear  Lagrangian  interpolation  functions  [48:103].  Then  Eq  (4.151) 
becomes  for  the  linear  28  DOF  element 
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(4.171) 


where  7/^  is  defined  by  Eq  (4.152)  and  /4  is  defined  by  Eq  (4.153).  Recalling  Eq  (4.150), 
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notice  that  {^}  is  a  28  x  1  array  of  nodal  displacements,  [D  ]  is  an  18  x  28  array,  and  the 
resulting  array  [d{^,  T|)}  is  an  18  x  1  array  as  expected.  Eqs  (4.154)  -  (4.162)  remain  the 
same  as  before. 


Figure  4.9  28  DOF  Spherical  Shell  Finite  Element  -  For  SIXX  &  S2XX  Codes 

4.7.2  SOXX  Code:  To  develop  a  quadratic  element  for  the  classical  thin  shell  SOXX  code 
similar  to  the  36  DOF  element  discussed  previously  in  Section  4.6,  a  28  DOF  spherical 
finite  element  was  developed  (see  Figure  4.10).  The  in-plane  dof  u  and  v  are  interpolated 
with  the  quadratic  Lagrangian  approximations  of  Eqs  (4.144)  &  (4.145).  In  the  classical 
thin  shell  theory,  the  dof  y,  and  its  derivatives  are  neglected.  Thus,  there  are  five  dof  per 
comer  node  («,  v,  w,  w  j,  W  2)  and  two  dof  at  the  midside  nodes  (w  &  v).  The  dof  w  and  its 
derivatives  are  interpolated  by  the  Hermitian  functions  listed  in  Eqs  (4.148)  &  (4.149). 
Then  Eq  (4.151)  becomes  for  the  quadratic  28  DOF  element 
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and  Hj^  is  defined  by  Eq  (4. 153).  Recalling  Eq  (4. 150),  notice  that  {^}  is  a  28  x  1  array  of 

nodal  displacements,  [£)]  is  an  10x28  array,  and  the  resulting  array  [d{^,  T))}  is  an 
10  X  1  array  as  expected.  Eq  (4.155)  takes  the  form 
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where  a  and  b  are  defined  in  Figure  4.10.  Eqs  (4.158)  -  (4.162)  remain  the  same  as  before. 


Figure  4.10  28  DOF  Spherical  Shell  Element  -  For  SOXX  Code 

4.8  The  20  Degree-of-Freedom  Finite  Element 

For  the  SOXX  code  a  linear  version  of  the  finite  element  discussed  in  Section  4.7.2  is 
given  by  removing  the  midside  nodes  and  the  in-plane  dof  u  and  v  are  approximated  by 
linear  Lagrangian  interpolation  functions  defined  in  Eqs  (4.169)  &  (4.170)  (see  Figure 
4.11).  Then  Eq  (4. 172)  becomes 
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is  defined  by  Eq  (4.153).  -Recalling  Eq  (4.150),  notice  that  {<7}  is  a  20  x  1  array  of 
displacements,  [£)]  is  an  10x20  array,  and  the  resulting  array  {rf(^,  Ti)}  is  an 


4.9  The  Incremental, Displacement-Control,  Elastic-Plastic  Algorithm 

To  understand  the  elasto-plastic  formulation  of  the  Newton-Raphson  nonlinear  solu¬ 
tion  algorithm,  a  discussion  is  given  of  the  Newton-Raphson  algorithm  from  a  load-con¬ 
trol  approach,  then  a  displacement-control  approach,  and  finally  the  incremental, 
displacement-control,  elasto-plastic  approach. 


4.9.1  The  Load-Control,  Newton-Raphson  Algorithm: 

Recall  from  Eq  (4.93) 

[K^{d)]  {Ad}  =  -F(d)  (4.93) 

or,  in  terms  of  the  Rajasekaran  &  Murray  formulation 


\lK]  +  [N^(d)]  = 


(4.179) 


{P} 


_IK]  +5[JVj  (rf)]  +5[w2(/)]J{g} 


1 


,2.  1 


As  described  in  [7d2;Chap  3],  for  a  given  first  increment  in  load,  P|,  Eq  (4.179) 
reduces  to 


.  (4.180) 

Now  di  is  subsituted  into  the  stiffness  arrays  and  N2  and  the  updated  tangent  stiffness 
array,  Kj,  is  given  by 

=  [[in  +  [WjCd,)]  +[W2(d^]]]  .  (4.181) 

The  tangent  stiffness  array,  Kj,  is  comprised  of  constants  after  the  d  substitution  and  repre¬ 
sents  the  local  slope  at  d^  of  the  actual  load  versus  displacement  relationship  (see  Figure 
4.12).  After  similarly  subsituting  into  the  right-hand  side  of  Eq  (4.179)  for  the  incre¬ 
mental  displacement,  AJj 
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(4.182) 


[[AT]  +  [Afj(<ij)]  +[Af2(<ii)]]  {Adj}  = 

{P;}  -[[JT]  +5[Afj(d,)]  +5[JV2(‘'i)]]^‘'i^ 

The  right-hand  side  of  Eq  (4.182)  is  the  residual  force  vector  Ai?j  shown  in  Figure  4.12. 
The  displacement  d  is  updated  as  in  Eq  (4. 183)  and  illustrated  in  Figure  4. 12 

{d^}  =  {d^}  -1-  {Ad^}  .  (4.183) 

Iteration  continues  using  the  recursive  relationships  of  Eqs  (4.184)-(4.185)  until  the  resid¬ 
ual  force  vector  A/?„  becomes  small,  signifying  that  the  equilibrium  equations  F((i„)  are 
satisfied 

{P,}  -  [m  +  5  [W,  ,)]  +  l)]]  {“in- d 

The  converged  displacement  is  the  of  Figure  4.12,  and  point  A  is  the  first  point  of  the 
actual  load  versus  displacement  path  found. 

The  process  is  repeated  for  the  next  load  increment,  i?2>  of  Figure  4. 13.  Upon  conver¬ 
gence,  point  B  is  determined. 

For  the  usued  case  of  more  than  one  degree  of  freedom,  instead  of  only  one  load  versus 
displacement  curve,  there  are  as  many  curves  as  there  are  degrees  of  freedom.  A  global 
convergence  criterion  such  as  that  given  in  Eq  (4.162) 

(4.162) 

where  {^il;  the  elements  of  {d}  for  the  (r-1)^^,  and  first  itera- 
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tions  respectively,  for  a  given  increment.  The  criterion  is  satisfied  when  the  left  hand  side 
of  Eq  (4.168)  is  less  than  or  equal  to  V ,  a  user  specified  percentage  tolerance.  Values  of  V 
ranging  from  0.01  to  0.05  %  were  chosen  for  the  problems  investigated. 


A  drawback  of  the  preceeding  method  is  its  inability  to  traverse  limit  points.  A  limit 
point  occurs  whenever  the  slope  of  the  load  versus  displacement  curve  is  zero.  At  that 
point,  the  tangent  stiffness  becomes  singular,  and  Eq  (4.93)  cannot  be  solved.  Trans¬ 
versely  loaded  flat  plates  typically  do  not  exhibit  limit  points.  However,  transversely 
loaded  thin  shells  often  do.  Consequently,  a  variation  of  the  previously  described  tech¬ 
nique  is  employed  which  takes  the  form  of  the  displacement-control  Newton-Raphson 
algorithm. 
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Load  (P) 


4.9.2  The  Displacement-Control,  Newton-Raphson  Algorithm: 

The  displacement  control  solution  method  is  very  similar  to  the  recursive  relations  of 


Eqs  (4.184)-(4.185)  except  a  single  component  of  displacement  is  prescribed  and  incre¬ 
mented,  and  its  corresponding  load  compenent  becomes  unknown.  This  allows  traversing 
the  limit  points  as  the  coefficient  matrix  of  the  incremental/iterative  equations  is  no  longer 
singular.  A  simple  displacement  control  approach,  but  limited  in  application,  only  permits 
stepping  of  certain  displacement  components.  That  is,  one  application  is  a  structure  that 
only  has  a  single  point  load  acting  on  it.  For  this  case,  the  displacement  corresponding  to 
that  single  point  load  must  be  the  degree  of  freedom  that  is  incremented.  In  addition,  the 
simple  approach  solves  the  situation  where  all  the  edge  displacements  on  an  axially  com¬ 
pressed  plate  or  shell  are  identically  prescribed.  This  simple  method  does  not  destroy 
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symmetry  or  bandedness  of  the  equations  as  more  general  methods  do. 

Basically  the  simple  method  is  described  as  follows.  For  the  first  iteration  of  a  given 
displacement  increment,  a  displacement  component  is  prescribed,  dp,  and  Eq  (4.180)  is 
solved 

[Kj,id^)]{di}  =  {P^}  (4.180) 

then  dp  -  represents  an  out  of  balanced  displacement  from  the  prescribed  displacement 
component,  dp.  Thus,  Eqs  (4.184)-(4.185)  take  on  the  form  of 

AP„  =  [[/f]  +  [W,(3„)]  .  (4.186) 

r  1  -  ir  f  -  -  1 

+  {P„}  -  [  +  2  (‘'n)  J  +  3  L^2l  JJ 

{lip}  =  {<ip}  +  {3„}  .  (4.187) 

This  technique  is  a  simple  modifications  of  Eqs  (4.184)-(4.185),  but  only  specific  applica¬ 
tions  are  effectively  solved.  In  the  load  versus  displacement  space,  for  a  prescribed  dis¬ 
placement  degree  of  freedom,  the  method  is  graphically  portrayed  in  Figure  4.14.  The 
displacement  is  incremented  from  that  at  point  A,  rfj,  to  that  at  point  B,  c?2.  Figure  4.14 
shows  the  vertical  line  of  d2  =  constant,  becomes  a  "constraint"  line.  In  the  load  control 
solution  algorithm,  a  horizontal  line  (actually  the  constraint  lines  are  general  surfaces)  was 
the  constraint  (see  Pj  =  constant  in  Figure  4.12).  The  different  constraint  surfaces  con- 

strast  the  solution  techniques.  A  global  convergence  criterion  similar  to  Eq  (4.162)  is 
given  by 

V  (4.188) 

where  {di]^  }/--/>  and  { J,};  are  the  elements  of  {d}  for  the  and  first  itera- 
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tions  respectively,  for  a  given  increment.  The  criterion  is  satisfied  when  the  left  hand  side 
of  Eq  (4. 188)  is  less  than  or  equal  to  V ,  a  user  specified  percentage  tolerance. 


Figure  4.14  Displacement  Control  Solution  Algorithm 


4.9.3  The  Incremental,  Displacement-Control,  Elasto-Plastic,  Newton-Raphson  Algo¬ 
rithm: 

The  incremental  form  of  Eq  (4.93)  is  given  by 

[K.j.iAd)]  {A{Ad)}  =  -F{Ad)  (4.189) 

or,  in  terms  of  the  Rajasekaran  &  Murray  formulation 


[[^f]  + 

{AP]  - 


[JV;(Ad)]  +[A?2(A<i^]]{A(Ad)} 
[K]  +i[Af,(Ad)]  +j[Af2(A/)] 


{Ad} 


(4.190) 
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or  in  terms  of  Eq  (4.186) 


_  2 


A(AP„)  =  [[in  +  [iVi(Ad„)]  +  )]]  {A^^-A^i„} 

r  1  _  1  9. 

+  {APJ  - 

and  Eq  (4.187)  takes  the  form 


(4.191) 


[AT]  +  ^  [iVj  (A~d„)  ]  +  I  [iV^  (  (A5„)  ^  ]  {  a5„} 


{Adp}  =  {Ad^}  +  {A5„}  .  (4.192) 

For  the  first  prescribed  increment,  Adp  =  Ad^,  solve 

APj  =  [K]  {Arf,}  .  (4.193) 

Then  calculate  [i^,  [A^il.  and  [A^2]  based  on  A^ij  and  solve  Ad\  from 

[Kp(Ad^)]  {Ad^}  =  {AP^}  (4.194) 

The  out  of  balance  displacement  term,  Adi '  A^i  is  determined  and  now  Eq  (4.191)  takes 
on  the  form 


A(APi)  =  [[K]  +  [N^(Adi)]  +  [N^iiAdi)  )]]  {A^i,-A5i}  ,  (4.195) 

+  {APj} 

and  is  solved  for  A(APi).  APi  is  updated  and  Eqs  (4.194)  and  (4.195)  are  solved  itera- 


[K]  +^[iVj(Aai)]  +^[iV2((^5i)^] 


lively  until  convergence  is  achieved.  The  global  convergence  criterion  takes  on  the  incre¬ 
mental  form  of  Eq  (4. 188)  and  is  given  by 


Evaluate  Aa  for  every  Gauss  point  at  each  layer  through 

{Ae}  =  [B]  {Ad} 


X  100  <  V 


(4.196) 


{Ag}  =  ^[T^]  ^[a]  [T^]  {Ae}  =  [D]  {Ae} 


(4.197) 

where  [B]  represents  the  Green’s  strain-displacement  relations,  [a]  is  the  Cauchy  consitu- 
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tive  relations  matrix,  [Tj]  is  the  Jacobian  transformation  matrix  for  the  Cauchy  stress- 
state,  [T’2\  is  the  Jacobian  transformation  matrix  for  the  Cauchy  strain  state,  D  is  the  deter¬ 
minant  of  the  Jacobian  transformation  matrix,  and  [D]  is  the  Lagrangian  constitutive  rela¬ 
tions  matrix. 

The  global  stress  array  is  updated  for  each  Gauss  point,  at  each  layer,  by 

and  then  the  desired  yield  criteria  is  checked  for  the  updated  stress  state.  If  a  Gauss  point’s 
stress  state  exceeds  the  desired  yield  criterion,  then  it’s  flagged  as  behaving  plastic  and  the 
constitutive  relations  are  then  modelled  as  elasto-plastic  for  the  remaining  analysis. 

For  the  second  prescribed  increment,  Adp  =  Ad2,  calculate  [AH.  [A^i]»  and  [A^2]  based  on 
A^2  solve  for  AP2  from 

[Kp(Ad^)]{Ad^}  =  {AP^}  (4.199) 

and  then  solve  for  Adi  from 

[KpiAd^)]  {A~d2}  =  {AP^}  .  (4.200) 

The  out  of  balance  displacement  term,  Ad2  -  Adi  is  determined  and  now  Eq  (4.191)  takes 
on  the  form 


A(AP2)  =  [[A:]  +  [A^i(Ad2)]  +  [iV2((Adi)  )]]{Ad2-Adi} 
+  { AP2}  -  [K]+\  [iVi  (Adi) ]+\[N2i  (Adi) ^ ]  {Adi} 


(4.201) 


and  is  solved  for  A(AP2)-  AA’2  is  updated  and  Eqs  (4.200)-(4.201)  are  solved  iteratively 
until  convergence  is  achieved.  The  global  convergence  criterion  takes  on  the  incremental 
form  of  Eq  (4. 196).  For  each  Gauss  point  that  behaves  elaso-plastically,  Eq  (4.201)  takes 
the  form 


AiAP^)  =  [[K"^]  +  [<^Adi)]  +  [Nl[{{A~d2)  )]]  {Ad2-Adi}  ,  (4.202) 

+  {AP2} 


[K"”]  +  \  (Adi)  {Adi)  ^  ]  {Adi} 


3  '■”2 


where  [A^^],  and  [A^i^^]  ^0  based  on  the  elasto-plastic  constitutive  relations  and 
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take  the  form  of  Eqs  (4.125)-(4.128).  A  detailed  flow  chart  and  discussion  of  the  algo¬ 
rithm  is  given  in  Appendix  G. 
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5.  Discussion  of  Elastic  Shell  Analysis 


Chapters  3  and  4  presented  the  development  of  three  basic  geometrical  and  material 
variations  of  theory  for  plates  and  shells.  The  first  variation  concerns  the  inclusion  of 
spherical  geometry  in  the  kinematic  field  and  the  strain-displacement  relations.  The  sec¬ 
ond  variation  addresses  the  transformation  of  constitutive  relations  from  the  Cauchy 
stress-strain  (Eulerian)  coordinates  to  the  2nd  Piola  stress-Green  strain  (Lagrangian)  coor¬ 
dinate.  Finally,  the  third  variation  is  the  inclusion  of  nonlinear  material  effects.  This  chap¬ 
ter  discusses  the  elastic  analysis  of  plates  and  shells  with  the  inclusion  of  the  material 
transformation  matrices.  Results  for  an  elastic-plastic  analysis  of  plates  and  shells  (includ¬ 
ing  the  material  transformation  matrices)  are  discussed  in  Chapter  6.  One  objective  of  this 
research  was  to  evaluate  the  accuracy  of  including  the  variations  of  the  HTSD  theory  with 
elastic  or  elastic -plastic  material  properties  listed  in  Table  5.1,  another  objective  was  to 
assess  their  limitations.  The  first  step  in  achieving  these  objectives  was  the  verification  of 
the  computational  tools  used  to  achieve  results.  This  verification  process  included  verifi¬ 
cation  of  the  MACSYMA  routines  used  to  generate  the  elemental  codes  (this  process  is 
discussed  in  Reference  [209:Section  4.6]),  verification  of  the  finite  element  program,  and 
finally  verification  of  numerical  analysis. 

Several  test  problems  were  solved  to  verify  the  MACSYMA  generated  Fortran  codes. 
These  test  problems  were  classical  flat  plate  and  thin  shell  problems  with  known  solutions. 
In  all  of  these  test  problems,  the  various  elemental  codes  should  give  results  equivalent  to 
the  classical  von  Karman  plate  (POOO)  code  or  the  classical  Donnell  shell  (COOO  &  SOOO) 
codes.  This  result  is  expected  since  the  additional  terms  of  the  higher-order  codes  include 
radius  in  the  denominator.  Thus,  these  terms  are  zero  for  a  flat  plate  and  negligible  for  the 
classical  thin  shell.  In  addtion,  these  results  should  correspond  closely  to  those  produced 
by  Dennis  {4S\.  Investigations  of  the  limitations  of  elastic  quasi-nonlinear  HTSD  theory 
were  based  on  the  shallow  isotropic  shell  panel  problems  and  a  deep  isotropic  arch  prob¬ 
lem.  The  shallow  shell  problems  were  thin  254.0-cm  radius  hinged-free  cylindrical  shell 
panels  with  a  transverse  point  load,  or  thin  12.09-cm  radius  hinged-hinged  spherical  shell 
caps  with  a  transverse  point  load.  The  50.8-cm  x  50.8-cm  cylindrical  shell  panels  studied 
were  0.64-cm  thick.  The  4.62-cm  x  4.62-cm  spherical  shell  cap  studied  was  0.04-cm  thick. 
The  method  used  to  solve  each  case  was  the  nonlinear,  displacement-controlled  method. 
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This  method  allows  for  convergence  past  the  buckling  or  snapping  phase  within  each 
problem  [i 62: 9,  134].  The  convergence  tolerance,  V , unless  otherwise  specified,  for  each 
problem  was  0.01.  All  problems  were  run  on  a  SUN  SPARCstation  10/80  workstation. 


Table  5.1  Definitions  of  Elemental  Codes  for  Variations  of  Elastic  Theory 


Code 

Name 

GXYZ 

Displacement 

Assumption 

Field 

Constitutive 

Relations 

Analyzed 

Material 

Coordinate 

Transformation 

Equations 
Given  in 
Appendix 

GOOO 

Donnell  (1) 

Elastic 

Not  Included 

C 

GOOl 

Donnell 

Elastic 

Included 

C 

GlOO 

modified  Donnell(2) 

Elastic 

Not  Included 

D 

GlOl 

modified  Donnell 

Elastic 

Included 

D 

G200 

Cubic  Nonlinear  (3) 

Elastic 

Not  Included 

E 

G201 

Cubic  Nonlinear 

Elastic 

Included 

E 

where 

(1)  Mj-  defined  in  Eq  (C.2) 

(2)  Ui  defined  in  Eq  (D.2) 

(3)  M,-  defined  in  Eq  (E.2) 


G  =  P  for  a  plate,  C  for  a  cylindrical  shell,  S  for  a  spherical  shell,  or  A  for  an 
arbitrary  shell  geometry.  Appendix  A  lists  relations  for  arbitrary  shells. 
Appendix  B  lists  relation  for  general  spherical  shells,  and  Appendices  C 
through  E  list  relations  for  spherical  shells.  The  plate  and  cylindrical  shell 
relations  are  embedded  within  the  spherical  shell  relations.  They  are 
derived  by  setting  the  parameters  D  and/or  C  to  zero. 


5-2 


5.1  Flat,  Quasi-Isotropic  Panel  with  Uniform  Pressure  Point  Load 


A  transversely-loaded  flat  plate  problem  was  used  to  test  the  MACSYMA  generated 
elemental  codes  and  the  modified  finite  element  program.  The  plate  chosen  was  an  8-ply 
quasi-isotropic  laminated  square  plate  with  simple  boundary  conditions  along  each  of  its 
40.64-cm  long  sides  (see  Figure  5.1  ).  The  plate  was  loaded  with  a  uniform  transverse 
pressure  load.  The  plate  thickness  was  4.064-cm.  The  plate  was  analyzed  by  discretizing 
one  quadrant  into  a  4  x  4  mesh  of  uniform  elements.  Only  one  quadrant  was  analyzed 
because  symmetric  response  is  known  to  occur  [48:221].  The  problem  was  solved  by 

incrementing  the  load  in  five  equal  increments  of  5 1 .7 1  x  10^  Pa.  Boundary  conditions  and 
material  properties  are,  respectively: 


^1 

=  0 

V  = 

:  W  2 

=  V2  = 

0 

(symmetry) 

=  0 

u  = 

:  W  1 

=  ¥,  = 

0 

(symmetry) 

^1 

=  ±a 

V 

=  W 

=  ¥2  = 

0 

(simple) 

^2 

=  ±b 

u 

=  w 

=  ¥,  = 

0 

(simple) 

a 

=  b  = 

40.64 

cm 

h  = 

4.064 

cm 

= 

:  41.37 

X  10‘° 

Pa 

^2 

=  1.03 

X  10^°  Pa 

^23 

=  5.17 

X  10^ 

Pa 

Gj2 

“  ^13 

=  6.21  X  10^ 

V  =  0.3 

Transverse  displacements  at  the  center  of  the  plate,  as  predicted  by  the  PXXX  codes 
and  several  other  references  are  listed  in  Table  5.2.  The  results  shown  on  the  first  line  of 
the  table  were  those  reported  by  Dennis  [48:236].  The  final  line  of  the  table  includes  the 
results  reported  by  Putcha  and  Reddy  [772].  They  used  a  mixed  finite  element  model  with 
parabolic  transverse  shear  deformation  to  solve  the  von  Karman  plate  equations.  The  lines 
labeled  P000-P201  are  the  three  geometrical  variations  with  or  without  the  material  trans¬ 
formation  matrices.  These  problems  were  run  on  the  SUN  SPARCstation  lOMP/80.  This 
workstation  provided  improved  precision  to  that  of  the  VAX  8550  that  Dennis  used  for  his 
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a  =  b  =  40.64  cm 
h  =  4.064  cm 


simnle 


simple 

Figure  5. 1  4.064  cm  Thick,  Hinged-Hinged  Plate  with  Uniform  Pressure  Load 

Table  5.2  Comparison  of  Flat  Plate  Displacement  (cm)  Results  for  Various  Geometric 

Nonlinear  Theories 


Total  Load 
(10^  N ) 

33.34 

66.68 

100.03 

133.37 

166.71 

Ref  [48:236] 

1.1212 

1.9804 

2.6314 

3.1496 

3.5865 

POOO 

0.7882 

1.4567 

0.8074 

2.5578 

2.9947 

pool 

0.7882 

1.4552 

0.8060 

2.5527 

2.9896 

PlOO 

1.1212 

1.9799 

2.6314 

3.1496 

3.5865 

PlOl 

1.1212 

1.9738 

2.6187 

3.1318 

3.5611 

P200 

1.1229 

1.9891 

2.6492 

3.1826 

3.6322 

P201 

1.1229 

1.9822 

2.6340 

3.1598 

3.5992 

Ref  [172:537] 


1.143 


2.032 


2.794 


3.302 


3.810 


analysis.  From  Table  5.2,  one  can  see  that  the  six  quasi-nonlinear  codes  provided  nearly 
identical  results.  This  close  agreement  shows  that  the  author's  theories  correctly  degener¬ 
ate  to  flat  plate  solutions  when  curvature  is  not  a  factor  in  the  problem.  Graphical  results 
are  shown  in  Figure  5.2  for  the  six  variations  compared  and  Dennis  results  given  in  Table 

5.2.  Five  increments  of  load  (33.34  x  10^  N)  were  applied.  For  the  POOX  &  PlOX  theo¬ 
ries,  solutions  took  36.1  cpu  seconds.  For  the  P20X  theories,  solutions  required  43.2  cpu 
seconds. 


Figure  5.2  Comparison  of  Flat  Plate  Displacement  Results  for  Variations  of  Geometric 

Nonlinearity 


5.2  Simply  Supported,  Isotropic  Deep  Arches 

Deep  circular  arches  can  be  used  to  demonstrate  a  theory's  ability  to  predict  large  dis¬ 
placements  and  rotations.  Many  variations  of  transversely-loaded  deep  arch  problems 
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have  been  reported  in  the  literature  {45,  88,  202,  216],  The  problem  chosen  here  is  a 
254.0-cm  radius  istropic  arch  with  a  2.54-cm  square  cross  section  and  an  opening  angle  of 


0.92  radians  (106°).  The  arch  configuration  is  shown  in  Figure  5.3.  The  geometric  and 
material  data  are  shown  below: 


^j=0  M  =  VVj=\j/j=0 

5'2  =  0  v=W2  =  t|/2  =  0 

=  ±1.27  cm  (free) 

^2  =  ±235.94  cm  u  =  v  = 

E  =  3.103  X  10‘°  Pa 
width  =  2.54  cm 
h  =  2.54  cm 
5  =  101.6  cm 


{symmetry) 

(symmetry) 

w  =  \j/j  =  0  (hinged) 

0  =  0.92  radians 
R  =  254.0  cm 
L  =  406.4  cm 
V  =  0.0 


Solutions  for  this  problem  were  computed  using  COOO  -  C201  codes  and  a  1  x  40  mesh  of 
elements  to  represent  one  quadrant  of  the  arch.  Data  from  the  various  geometrical  theories 
are  shown  in  Table  5.3  &  Table  5.4.  The  higher-order  cubic-nonlinear  theories  (C200  & 
C201)  in  this  case  predict  a  more  dramatic  collapse  of  the  arch  than  the  classical  Donnell 
or  the  psuedo-Donnell  codes  (COXX  &  CIXX).  Dennis  explained  this  difference  was  due 
to  the  "many  nonlinear  in-plane  displacement  terms  in  the  strain  definitions  that  are  not 
included  in  the  Donnell  equations"  [48:260].  He  reasoned  that  these  additional  terms 
become  more  important  as  displacements  become  large.  A  representation  that  measures 
the  movement  of  the  Cauchy  stress-strain  axis  with  respect  to  the  2nd  Piola  stress-Green 
strain  axis  should  produce  more  flexible  results.  Figure  5.4  shows  the  load  versus  crown 
displacement  predicted  by  the  ClOX  theories.  Figure  5.5  shows  the  load  versus  crown  dis¬ 
placement  predicted  by  the  ClOO  &  C20X  theories.  As  was  expected,  due  to  the  large 
movement  and  rotations  near  the  arch  crown,  the  inclusion  of  the  material  transformation 
matrices  created  a  more  flexible  response  for  the  model. 

Figure  5.6  shows  the  two-dimensional  (2D)  view  of  the  arch  at  four  points  along  the 
load-displacement  curve  for  the  C201  analysis,  as  indicated  in  Figure  5.5.  Figure  5.7 
shows  the  rotation  dof,  v/2,  along  the  meridian  of  the  arch.  It  is  important  to  note  that  at 
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p 


Table  5.3  Equlibrium  Point  Load  (10^  N)  Predicted  for  Prescribed  Transverse 
Displacement  of  Isotropic  Cylindrical  Arch  (w  =  10.16  -  40.64  cm) 


Disp  (cm) 

10.16 

20.32 

30.48 

40.64 

Donnell 

2.762 

3.973 

4.571 

4.837 

C0(X) 

2.760 

3.963 

4.551 

4.807 

cool 

2.760 

3.764 

4.201 

4.302 

ClOO 

2.749 

3.954 

4.453 

4.800 

ClOl 

2.749 

3.767 

4.204 

4.305 

SLR* 

2.832 

4034 

4.479 

4.441 

C200 

2.819 

4.018 

4.463 

4.429 

C201 

2.819 

3.832 

4.132 

3.975 

*  Ref  [53:207] 
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Table  5.4  Equlibrium  Point  Load  (10^  A/) Predicted  for  Prescribed  Transverse 
Displacement  of  Isotropic  Cylindrical  Arch  (w  =  50.8  -  71.12  cm) 


Disp  (cm) 

50.8 

60.96 

71.12 

Donnell* 

4.893 

4.795 

4.577 

COOO 

4.853 

4.745 

4.520 

cool 

4.199 

3.963 

5.630 

ClOO 

4.864 

4.739 

4.514 

ClOl 

4.204 

3.967 

3.634 

SLR* 

4.039 

3.486 

2.283 

ClOO 

4.035 

3.330 

2.276 

ClOl 

3.519 

2.435 

2.077 

*  Ref  [49:207] 


Figure  5.4  Deep  Arch  Crown  Displacement  vs  Load  -  ClOX  Theory 


(cm) 

0.00  (12.7)  (25.4)  (38.1)  (50.8)  (63.5)  (76.2)  (88.9) 


the  collapse  load  the  crown  is  undergoing  large  displacement  {w  =  30.48  -  71.12  cm)  ver¬ 
sus  the  shell  thickness  (h  =  2.54  cm)  and  moderate  rotations.  When  the  prescribed  trans¬ 
verse  displacement  reaches  30.48-c/n,  the  maximum  rotation  of  \i/2  reached  20.3°,  and 

over  32%  of  shell  surface  saw  rotations  of  9.8°.  The  classical  Donnell  theory  (COOO  & 
cool)  does  not  include  rotations  of  the  normal  (i.e.  V|/2  =  W2  is  assumed)  in  the  kinematics 
(see  Appendix  C,  Eq  (C.2)).  While  the  modified  Donnell  theory  does  include  rotations  of 
the  normal,  \|r2,  in  the  kinematics  (see  Appendix  D,  Eq  (D.2)),  it  ignores  most  of  the  in¬ 
plane  nonlinear  strain-displacement  relations  (see  Appendix  D,  Eq  (D.3)).  The  cubic-non¬ 
linear  HTSD  (C200  &  C201)  theory  includes  the  cubic  displacement  field  and  all  of  the 
nonlinear  strain-displacement  terms  for  the  in-plane  strains  (Appendix  E,  Eqs  (E.2)  & 
(E.3)).  Thus,  the  cubic-nonlinear  theory  most  accurately  describes  a  shell  behavior  when  it 
undergoes  large  movements  and  rotations.  When  the  crown  displacement  reaches  50.8-cw 
the  maximum  rotation  of  \}/2  reached  30.4°,  and  over  38%  of  shell  surface  saw  rotations  of 
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13.2°.  At  this  point,  the  C201  theory  is  predicting  an  equilibrium  load  12.8%  less  than 
Dennis'  SLR  theory,  and  28.1%  less  than  Dennis'  CDON  theory.  Clearly,  with  large  move¬ 
ments  and  moderate  rotations  of  a  deep  shell  structure  such  as  in  this  arch,  the  assumption 
of  Cauchy  stress-strain  and  2nd  Piola  stress-Green  strain  axes  being  co-located  is  no 
longer  valid.  The  inclusion  of  the  constitutive  transformation  matrices  causes  the  material 
properties  (i.e.  E,  Eij,  v,  Vy)  to  become  increasingly  flexible  (increasingly  anisotropic)  as 
displacements  and  rotations  become  relatively  significant. 


a)  w  =  30.48  cm,  \i/2  =  20.3^ 

b)  w  =  60.96  cm,  i|/2  =  30.4^ 

c)  w  =  71.12  cm,  V|/2  =  39.0^ 

d)  w  =  81.28  cm,  \^2  -  44.5^ 

Figure  5.6  Two-Dimensional  View  of  Deformation  of  Hinged  Isotropic  Deep  Circular 
Arch  at  Four  Specified  Increments  of  Transverse  Displacement  -  C201  Theory 

As  the  prescribed  crown  displacement  is  increased  to  60.96-cm,  the  maximum  rotation 
of  \|/2  reached  35.1°,  and  over  39.2%  of  shell  surface  saw  rotations  of  15.0°.  At  this  point, 
the  C201  theory  is  predicting  an  equilibrium  load  30.2%  less  than  Dennis'  SLR  theory,  and 
49.2%  less  than  Dennis'  CDON  theory.  When  the  displacement  is  increased  to  71.12-cm, 
the  arch  has  reached  a  point  where  the  center  of  the  arch  is  returning  to  tension,  and  resis- 
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tance  begins.  Hence,  the  change  in  the  equilibrium  curve  for  the  C201  theory.  For  a  pre¬ 
scribed  convergence  tolerance,  V  =  0.005,  the  ClOO  and  ClOl  theory  code  required  453.3 
cpu  and  477.8  cpu  seconds,  respectively.  The  C200  theory  codes  required  11,945.3  cpu 
seconds  and  the  C201  theory  required  12,207.6  cpu  seconds. 


25.4  50.8  76.2  101.6  127.0  152.4  177.8  203.2  228.6  254.0 


Figure  5.7  Meridian  Values  of  \|/2  for  8  Increment,  10. 16-cm  each,  of  Transverse  Dis¬ 
placement  of  Hinged  Isotropic  Deep  Circular  Arch  -  C201  Theory 


5.3  Hinged-Free  Cylindrical  Shell  Panel,  0.635-cm  Thick,  with  Transverse  Point  Load 

The  third  class  of  problems  investigated  was  a  thin,  shallow  hinged-free  cylindrical 
shell  with  a  transverse  point  load.  The  first  problem  was  a  0.635-cm  thick  shell  of  isotro¬ 
pic  material.  The  second  problem  was  a  0.635-cm  thick  shell  of  quasi-isotropic  material. 
The  0.635-cm  shell  is  shown  in  Figure  5.8.  Geometric  &  material  properties  for  the  isotro¬ 
pic  problem  are  given  below: 
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5j=0  M  =  vVj=\|/j=0  {symmetry) 

S2  =  0  v  =  w2  =  W2  =  0  (symmetry) 

=  ±25.4  cm  (free) 

S2  =  ±25.4  cm  M  =  v  =  H’  =  \j/j=0  (hinged) 


E  =  3.103  X  10^^  Pa  0  =  0.1  radians 
h  =  0.635  cm  /?  =  254.0  cm 
L  =  50.8  cm  V  =  0.3 


Solutions  were  computed  using  a  4  x  6  mesh  of  elements  to  model  one  quadrant  of  the 
shell.  Convergence  studies  by  Dennis  [48:247]  showed  little  difference  between  a  4x6 
and  8x8  element  meshes.  Significant  computational  savings  result  when  the  24  element 
mesh  is  used  instead  of  the  64  element  mesh.  Table  5.5  &  Table  5.5  shows  the  results  of 
equilibrium  load  predictions,  for  increments  of  transverse  displacement  from  0.254  to  2.54 
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centimeters,  for  the  various  CXXX  codes.  The  values  of  load  shown  are  four  times  the 
equlibrium  load  of  the  quarter  shell.  This  load  represents  the  total  load  on  the  entire  shell 
panel.  Values  were  computed  using  10  increments  of  center  point  transverse  displacement. 
One  quadrant  of  the  shell  was  modelled  using  a  24  element  mesh  with  4  elements  in  the 
lateral  direction  and  6  elements  in  the  circumferential  direction.  From  this  table,  one 
observes  the  cubic-nonlinear  HTSD  theory  with  material  transformation  (C201  code)  pro¬ 
vides  the  most  flexibility.  This  is  due  primarily  to  the  combination  of  higher-order  nonlin¬ 
ear  terms  in  the  in-plane  strain-displacement  relations,  and  the  transformation  of  the 
constitutive  relations  from  Eulerian  to  Lagrangian  coordinates.  Figure  5.9  shows  the  equi¬ 
librium  curves  for  the  CDON,  the  modified  Donnell  (ClOO  &  ClOl),  and  the  cubic-non¬ 
linear  HTSD  (C200  &  C201)  theories.  The  variance  between  the  various  theories  is 
negligible  due  to  the  relatively  small  movement  (maximum  displacement  was  only  four 

times  the  shell  thickness)  and  small  rotations  (less  than  0.15  radians  (8.59°)).  Figure  5.10 
shows  the  development  of  the  rotational  dof,  \\f2,  along  the  shell  meridian  for  increments 
of  displacement. 

Table  5.5  Predicted  Load  (AO  for  Prescribed  Center  Transverse  Displacement  (cm)  of 
0.635-cm  Hinged-Free  Isotropic  Cylindrical  Shell  Panel  (w  =  0.254  - 1.27  cm) 


Disp 

0.254 

0.508 

0.762 

1.016 

1.270 

CDON 

225.0 

374.4 

478.9 

555.8 

591.3 

COOO 

225.0 

374.8 

480.1 

555.8 

591.3 

cool 

225.0 

374.6 . 

478.9 

555.3 

590.9 

ClOO 

225.0 

374.7 

480.1 

555.8 

591.3 

ClOl 

225.0 

374.5 

473.1 

554.4 

589.6 

C200 

225.0 

374.2 

480.1 

554.0 

589.6 

C201 

225.0 

374.0 

474.0 

552.6 

586.9 
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Table  5.6  Predicted  Load  (N)  for  Prescribed  Center  Transverse  Displacement  (cm)  of 
0.635-cm  Hinged-Free  Isotropic  Cylindrical  Shell  Panel  (w  =  1.524  -  2.54  cm) 


Disp 

1.524 

1.778 

2.032 

2.286 

2.540 

CDON 

494.4 

-385.1 

-320.1 

-179.2 

61.8 

COOO 

494.4 

-385.1 

-320.1 

-179.2 

62.2 

cool 

493.1 

-385.1 

-321.0 

-181.0 

61.1 

ClOO 

494.4 

-385.1 

-319.7 

-179.2 

62.2 

ClOl 

491.8 

-386.4 

-322.3 

-182.3 

55.4 

C200 

491.8 

-385.1 

-317.5 

-176.1 

65.5 

C201 

488.5 

-386.8 

-320.1 

-179.6 

60.7 

Figure  5.9  Equilibrium  Curves  for  Transverse  Point  Loaded  0.635-cm  Hinged-Free  Iso¬ 
tropic  Cylindrical  Shell— CDON,  ClOl,  &  C201  Theories 
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5.08  10.16  15.24  20.32  25.4 


Figure  5. 10  Meridian  Values  of  \j/2  for  10  Increments,  0.254-cm  each,  of  Transverse 
Displacement  of  0.0635-cm  Hinged-Free  Isotropic  Cylindrical  Shell  -  C201  Theory 


For  a  prescribed  convergence  tolerance,  V  =  0.1  the  Cl 00  and  ClOl  theory  code 
required  497.2  cpu  and  523.1  cpu  seconds,  respectively.  The  C200  theory  codes  required 
2657.9  cpu  seconds  and  the  C201  theory  required  2801.1  cpu  seconds. 


The  second  problem  is  a  0.635-cm  thick  cylindrical  shell  of  quasi-isotropic  material 

(see  Figure  5.11).  This  problem  was  chosen  to  determine  the  effect  of  including  the  mate¬ 
rial  transformation  matrices  when  analyzing  shallow  quasi-isotropic  shells.  Geometric  and 
material  properties  for  the  quasi-isotropic  problem  are  given  below: 


=  0  u  - 
S2  =  0  V  = 
=  ±25.4  cm 
=  ±25.4  cm 


w  ^  =  ijr,  =  0 
W2  =  V|r2  =  0 
(free) 

U  —  V  =  w 


(symmetry) 

(symmetry) 


V|/j  =  0  (hinged) 
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=  14.109  X  10^°  Pa  =  9.243  x  10^  Pa 

Gj2  =  Gi3  =  5.957  X  10^  Pa  =  2.965  x  10^  Pa 

Vj2  =  0.313  0  =  0.1  radians 

h  =  0.635  cm  R  =  254.0  cm 
L  =  50.8  cm  Ply  Layup  [07-45/45/90]^ 


cal  Shell 

Solutions  were  computed  using  a  8  x  12  mesh  of  elements  to  model  one  quadrant  of  the 
shell.  This  mesh  was  used  by  Tsai  and  Palazotto  [226]  to  model  a  deep  clamped-free 
quasi-isotropic  shell.  Palazotto  and  others  {161  ,  163 , 225 , 226]  investigated  shells  of 
this  configuration  and  compared  static  and  dynamic  results  for  different  material  proper¬ 
ties  and  ply  lay-ups.  Their  work  is  based  on  a  96  element  model  of  a  quadrant  of  the  shell. 
This  mesh  was  chosen  based  on  the  results  of  their  convergence  studies  summarized  in 
Table  5.7.  Tsai  and  Palazotto  concluded  that  the  8  x  12  mesh  results  were  acceptable 
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considering  the  CPU  consumption  was  about  70%  less  than  the  11  x  16  mesh  [226:69]. 
Another  recent  study  by  Silva,  however,  revealed  that  the  quasi-isotropic  panel  with  trans¬ 
verse  load  does  not  deform  in  a  symmetric  manner  [206:3-6],  According  to  Smith 
[209: Chap  6:1-4],  there  is  negligible  difference  between  the  transverse  load  versus  dis¬ 
placement  curves  for  the  full  shell  16  x  24  mesh  and  the  quarter  shell  8x12  mesh.  Since 
this  research  is  primarily  concerned  with  load-displacement  behavior,  and  due  to  this 
being  a  shallow  shell  problem,  i.e.  6//i  <  1,  a  quarter  shell  mesh  was  chosen  for  the  analy¬ 
sis. 


Table  5.7  Convergence  Study  for  Quasi-Isotropic  Shell  Panel 


Mesh 

Load  at  Onset 
of  Instability  (N) 

4x6 

515.8 

8x  12 

249.0 

llx  16 

235.7 

[226:69] 


Transvere  load  values  versus  prescribed  increments  of  displacement  were  computed 
for  a  [0/-45/45/90]j  ply  layup,  using  the  modified  Donnell  (CIOO&CIOI)  and  the  cubic- 

nonlinear  HTSD  (C200  &  C201)  theories.  Table  5.8  shows  values  of  the  tranverse  load 
predicted  by  the  various  theories.  The  C201  HTSD  theory  predicted  the  most  flexible 
results,  due  to  incorporating  the  higher-order  nonlinear  terms  for  the  in-plane  strain-dis¬ 
placement  relations  and  the  material  transformation  matrices.  Figure  5.12  shows  the  equi¬ 
librium  curves  of  load  versuss  transverse  displacement  for  the  modified  Donnell  (ClOO  & 
ClOl)  and  the  quasi-nonlinear  HTSD  (C200  &  C201)  theories.  As  expected,  the  C201  the¬ 
ory  yields  the  greatest  flexible  response. 

Figure  5.13  shows  the  development  of  the  rotational  dof,  v|/2,  along  the  shell's 
for  increments  of  displacement.  As  in  the  previous  problem,  the  displacements  and  rota- 
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tions  are  small  (maximum  transverse  displacement  was  only  four  times  the  shell  thickness 

and  the  rotations  were  less  than  0.17  radians  (9.74°)).  These  results  imply  that  transform¬ 
ing  the  constitutive  relations  from  Eulerian  to  Lagrancian  coordinates  make  negligible 
contributions  to  the  equilibrium  analysis.  For  a  prescribed  convergence  tolerance,  V  = 
0.1,  along  with  10  increments  of  center  point  transverse  displacement,  the  Cl 00  and  ClOl 
theory  code  required  207.2  CPU  and  233.3  CPU  seconds,  respectively.  The  C200  theory 
codes  required  431.4  CPU  seconds  and  the  C201  theory  required  498.3  CPU  seconds. 
Thus,  one  can  conclude  the  Cl 00  theory  is  the  most  cost  efficient,  in  terms  of  CPU  usage, 
for  this  problem  of  a  shallow  shell. 


Table  5.8  Transverse  Center  Point  Load  (10^  N)  Predicted  for  Prescribed  Transverse 
Displacement  of  a  0.635-cm  Hinged-Free  Quasi-Isotropic  Cylindrical  Shell  Panel 


Disp 

ClOO 

ClOl 

C200 

C201 

0.254 

2.680 

2.679 

2.679 

2.679 

0.508 

4.207 

4.204 

4.204 

4.217 

0.762 

5.101 

5.091 

5.091 

5.083 

1.016 

5.230 

5.205 

5.205 

5.190 

1.270 

4.254 

4.204 

4.204 

4.183 

1.524 

2.500 

2.436 

2.436 

2.417 

1.778 

0.116 

0.059 

0.059 

0.052 

2.032 

-4.218 

-4.042 

-4.042 

-4.108 

2.226 

-2.710 

-2.605 

-2.605 

-2.676 

2.540 

0.380 

0.451 

0.451 

0.381 
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Figure  5.12  Equilibrium  Curves  for  Transverse  Point  Loaded  0.635-cm  Hinged-Free  Iso¬ 
tropic  Cylindrical  Shell  -  ClOX  &  C20X  Theories 


5.08 


10.16 


15.24 


20.32 


25.4 


Figure  5.13  Meridian  Values  of  v|/2  for  10  Increments,  0.254-cm  each,  of  Transverse  Dis¬ 
placement  of  0.635-cm  Quasi-Isotropic  Hinged-Free  Cylindrical  Shell  -  C201  Theory 
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5.4  Clamped-Free  Quasi-Isotropic  Cylindrical  Shell  Panel  with  Transverse  Point  Load 


The  second  deep  shell  problem,  after  the  isotropic  cylindrical  arch,  was  a  deep  com¬ 
posite  shell  panel  with  transverse  point  load.  This  problem  demonstrates  a  severe  test  of 
an  HTSD  theory  due  to  the  shell's  depth,  thickness,  and  quasi-isotropic  properties.  A  deep 
30.48-cm  radius  quasi-isotropic  27.94-cm  x  30.48-cm  cylindrical  panel  was  clamped  on 
its  lateral  boundaries  and  free  on  the  circumferential  boundaries.  The  shell  configuration 
is  shown  in  Figure  5.14.  Geometric  and  material  properties  are  listed  below.  A  transverse 
point  load  was  applied  at  the  center  of  the  0.102-cm  thick  panel  until  the  panel  center  dis¬ 
placed  over  5.12-cm.  This  distance  is  significantly  greater  than  the  4.83-cm  depth  of  the 
shell.  Results  for  the  transversely-loaded  panel  are  compared  with  the  computational 

results  of  Tsai  [225].  The  material  properties  and  geometry  are  listed  below: 


=  ±13.97  cm  (free) 

Sj  =  ±15.24  cm  m=:v  =  w  =  Wj  =  W2  =  vi/j=\]/2  =  0  (hinged) 
Material  AS4-3501  Graphite  Epoxy 


=  14.11  X  10^®  Pa  ^2  =  9.243  x  10^  Pa 


Gj2  =  Gj3  =  5.955  X  10^  Pa  =  2.965  x  10^  Pa 

Vj2  =  0.313  0  =  1.0  radians 


h  =  0.102  cm 
A  =  27.94  cm 
5  =  4.83  cm 


R  =  30.48  cm 
B  =  30.48  cm 

Ply  Layups  [07-45/45/90]^,  [02/902]^,  [Og],  [903] 


As  mentioned  previously.  Smith  [209]  determined  that  the  load  versus  transverse  dis¬ 
placement  curves  for  a  quarter  shell  mesh  and  a  full  shell  mesh  were  negligibly  different. 
However,  he  did  show  the  transverse  displacement  along  the  circumferential  coordinate 
(sf)  did  vary  significantly  between  the  quarter  shell  mesh  and  the  full  shell  mesh.  Since 
the  author  is  primarily  concerned  with  shell  response,  and  with  the  constitutitive  relations 
transformed  to  Lagrangian  coordinates  for  this  deep  shell,  a  quarter  mesh  (  8  x  12)  instead 
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of  a  full  mesh  ( 16  x  24)  is  not  used.  Transverse  load  values  versus  displacement  of  the 
center  of  the  shell  were  computed  for  [07-45/45/90]^,  [02/902]^,  [Og],  and  [90g]  ply  layups. 

The  cubic-nonlinear  HTSD  (C200  &  C201)  theories  were  considered.  Table  5.8  shows 
values  of  transverse  load  predicted  by  the  various  theories  for  the  [07-45/45/90]^  ply  layup. 


Figure  5.15  shows  a  2D  view  of  the  cylindrical  shell  for  several  prescribed  transverse 
displacements  for  the  [0/-45/45/90]j  ply  layup.  As  the  shell  displaces  from  w  =  1.191-cm 
to  w  =  \. 661 -cm,  the  deflection  about  the  central  point  load  has  reached  the  lateral  edges 
(5l  =  ±A/2).  This  is  usually  indicated  in  the  equilibrium  load-displacementcurve  with  the 
onset  of  the  "snap-through"  phase  exhibited  by  these  shells.  As  the  displacement  is 
increased  to  w  =  5.954-cm,  the  shell  is  "softening"  or  usually  requires  smaller  loads  to 
increase  deflection.  However,  as  displacement  continues  through  w  =  6.906-cm  to  w  = 
7.384-cm,  the  outer  circumferential  edges  (^2  =  ±5/2)  have  finished  the  "snap-through" 
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process  and  the  shell  is  entering  a  tensile  state.  This  requires  more  energy  (or  load)  to 
increase  deflection  and  is  usually  represented  by  an  increase  in  the  equilibrium  load-dis¬ 
placement  curve.  Figures  5.16  &  5.17  shows  a  three-dimensional  (3D)  view  of  the  shell  as 
it  begins  the  "snap-through"  and  finishes  in  a  tensile  loading  state.  In  Figure  5.16,  the  3D 
views  of  the  shell  clearly  show  the  development  of  the  central  deflection  that  leads  to  the 
onset  of  "snap-through".  At  this  point  on  the  load-displacement  path  (w  =  1.429-cm),  the 

maximum  rotation  of  \\f2  reaches  0.15  radians  (8.59°),  and  over  15%  of  the  shell  surface 

saw  rotations  of  0.10  radians  (5.73°).  Figure  5.17  shows  the  continued  3D  shell  deforma¬ 
tion  until  the  entire  shell  enters  a  tensile  state  (when  w  =  6.906-cm)  At  this  point,  the  max¬ 
imum  rotation  of  Vj/2  reaches  0.57  radians  (32.66°),  and  over  53%  of  the  shell  surfaee  saw 

rotations  of  0.26  radians  (14.9°).  Figure  5.18  shows  the  equilibrium  values  of  a  transverse 
center  point  load  of  the  modified  Donnell  (ClOO  &  ClOl)  theories  and  the  cubic-nonlinear 
HTSD  (C200  &  C201)  theories  for  the  [0/-45/45/90]j  ply  layup.  The  cubic-nonlinear 
HTSD  theory  with  material  transformations  predieted  the  most  flexible  shell  structure. 
Figure  5.19  shows  the  development  of  the  rotational  dof,  Vj/2  along  the  shell  meridian  for 
prescribed  increments  of  displacement.  As  in  the  isotropic  arch  problem,  as  displacements 
and  rotations  become  significantly  large,  the  constitutive  transformation  matrices  reflect 
the  increased  flexibility  in  the  material  properties  with  respect  to  the  undeformed  axis  sys¬ 
tem. 

Figures  5.20,  5.22,  and  5.24  show  the  equilbrium  load  vs  transverse  displacement  val¬ 
ues  at  the  center  ponit  of  the  cubic-nonlinear  (C200  &  C201)  theories  for  the  [Og],  [O2/ 

902]j,  [90g]  ply  lay-ups  respectively.  Figures  5.21,  5.23,  and  5.25  show  the  equilbrium 
load  vs  transverse  displacement  values  at  the  center  ponit  of  the  cubic-nonlinear  (C200  & 
C201)  theories  for  the  [Og],  [02/902],,  [90g]  ply  lay-ups  respectively.  It  should  be  noted 
that  the  constitutive  transformation  matrices  of  Eqs  (4.74)  and  (4.75)  reflect  greater  flexi¬ 
bility  at  the  onset  of  snapping  and  during  the  snap-through  phase.  In  partieular,  the  Xi 
terms  of  Eqs  (4.64a)-(4.64i)  become  signficantly  greater  than  unity.  These  transformation 
matrices  tend  to  "soften"  the  shells’  response.  This  is  accomplished  by  the  constitutive 
transformation  matrices  smoothing  the  transition  of  the  shells’  response  from  bending  to 
tension  in  the  snap-through  (predominantly  to  bending  resistance)  to  recovery  (predomi- 
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nantly  membrane  resistance).  By  comparing  the  three-dimensional  shell  deformations 
shown  in  Figures  5.16-5.17,  along  with  the  various  equilibrium  load-transverse  displace¬ 
ment  curves  shown  in  Figures  5.18,  5.20,  5.22,  and  5.24,  it  is  possible  to  observe  the 
shell(s)’  change  in  response  to  the  transverse  loading  from  purely  bending  (up  to  the  snap¬ 
ping  load),  to  a  combination  of  bending  and  tension  as  the  shell  begins  to  unload  (snap- 
through  phase),  to  a  pure  tensile  response  (recovery  phase). 


a)  w  =  0.239  cm  f)w  =  5.001  cm 

b) w=  1.191  cm  g)w  =  5.594  cm 

c) w  =  2.144  cm  h)  w  =  6.906  cm 

d) w  =  3.096  cm  i)w  =  7.381  cm 

e)  w  =  4.049  cm  j)  w  =  7.859  cm 

Figure  5.15  Two-Dimensional  (2D)  Profiles  of  Clamped-Free  Laminated  Composite 
Cylindrical  Shells  at  Various  Prescribed  Transverse  Displacements 
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Table  5.9  Center  Point  Load  (AO  Predicted  for  Prescribed  Transverse  Displacement  (cm) 
of  a  0.102-cm,  Clamped-Free,  Quasi-Isotropic,  Cylindrical  Shell  Panel,  [0/-45/45/90]j 


Disp 

CDON* 

ClOO 

ClOl 

C200 

C201 

0.4763 

116.3 

116.3 

115.5 

116.6 

115.9 

0.9525 

239.2 

238.8 

237.0 

237.7 

236.2 

1.4288 

225.7 

225.3 

216.5 

216.6 

208.5 

1.9050 

205.2 

205.1 

194.8 

187.5 

177.5 

2.3813 

181.5 

181.5 

169.7 

154.6 

144.8 

2.8575 

154.0 

154.1 

137.6 

117.7 

99.0 

3.3338 

125.5 

125.4 

113.8 

93.5 

80.5 

3.8100 

98.3 

98.3 

92.1 

79.1 

67.7 

4.2863 

76.0 

75.9 

59.1 

54.4 

52.9 

4.7625 

62.8 

62.8 

53.7 

52.0 

48.0 

5.2358 

67.5 

67.5 

60.5 

54.9 

53.4 

2.2500 

110.8 

110.5 

92.5 

84.1 

74.7 

Computed  using  Dennis'  [45]  modified  Donnell  theory  code. 


5-24 


w  =  4.286  cm 


w  =  6.906  cm 


Figure  5.17  Three-Dimensional  Views  of  0.102-cm  Clamped-Free  Quasi-Isotropic  Cylin¬ 
drical  Shell  at  Specified  Transverse  Displacements  -  C201  Theory 
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Figure  5.18  Equilibrium  Path  Comparisons  for  Transverse  Center  Point  Loaded  0. 102-cm 
Clamped-Free  Quasi-Isotropic  ([0/-45/45/90]s)  Cylindrical  Shell  -  CDON,  C200  &  C201 

Theories 


(cm) 


Figure  5.19  Meridian  Values  of  \|/2  for  10  Increments,  0.476-cm  each,  of  Transverse  Dis¬ 
placement  of  0.102-cm  Hinged-Free  Quasi-Isotropic  ([0/-45/45/90]s)  Cylindrical  Shell  - 

C201  Theory 
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(1.27)  (2.54)  (3.81)  (5.08)  (6.35)  (7.62)  (8.89) 


Figure  5.20  Equilibrium  Path  Comparisons  for  Transverse  Center  Point  Loaded  0.102cm 
Clamped-Free  Quasi-Isotropic  ([02/902]s)  Cylindrical  Shell  -  C201  Theory 


Figure  5.21  Meridian  Values  of  \|/2  for  10  Increments,  0.476-cm  each,  of  Transverse  Dis¬ 
placement  of  0.102-cm  Hinged-Free  Quasi-Isotropic  ([02/902]s)  Cylindrical  Shell-  C201 

Theory 
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Figure  5.22  Equilibrium  Path  Comparisons  for  Transverse  Center  Point  Loaded  0. 102-cm 
Clamped-Free  Quasi-Isotropic  ([Og])  Cylindrical  Shell  -  C201  Theory 


Figure  5.23  Meridian  Values  of  \|/2  for  10  Increments,  0.476-cm  each,  of  Transverse  Dis¬ 
placement  of  0.102-cm  Clamped-Free  Quasi-Isotropic  ([Og])  Cylindrical  Shell  -  C201 

Theory 
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Figure  5.24  Equilibrium  Path  Comparisons  for  Transverse  Center  Point  Loaded  0. 102-cm 
Clamped-Free  Quasi-Isotropic  ([90g])  Cylindrical  Shell  -  C201  Theory 

0.00  2.54  5.08  7.62  10.16  12.70  15.24 


Figure  5.25  Meridian  Values  of  VI/2  for  10  Increments,  0.476-cm  each,  of  Transverse  Dis¬ 
placement  of  0. 102-cm  Clamped-Free  Quasi-Isotropic  ([90g])  Cylindrical  Shell  -  C201 

Theory 
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Oberving  the  quasi-isotopric,  [0/-45/45/90]^,  shell’s  equilibirum  response  shown  in 

Figure  5.18,  yields  the  conclusion  that  the  material  transformation  matrices  shown  in  Eqs 
(4.74)-(4.75)  enhance  the  anisotropy  of  the  laminate.  This  enhancement  is  the  "soften¬ 
ing",  or  the  increase  in  flexibility,  the  shell  exhibits  once  the  displacements  (w>5h)  and/or 
rotations  (\j/j>15®)  become  significant.  As  the  shell  approaches  a  purely  tensile  response 
to  the  transverse  loading  (when  w  approaches  2. Sin)  for  the  C200  theory,  the  shell  snaps 
into  a  purely  concave  position  (see  Figure  5.17,  middle  display)  with  significant  inflection 
points  near  the  clamped  boundary  conditions.  Due  to  the  sharp  inflection  points  in  the 
curvature  being  near  theses  boundaries,  the  shell  exhibits  an  initially  sharp  transition  to  a 
membrane  (tensile)  loading  response.  As  the  displacement  is  increased,  the  shell  then 
gradually  transitions  through  the  inflection  points  until  the  entire  shell  is  in  tension  (recov¬ 
ery  phase).  The  C201  theory,  with  the  [Ty]  and  [T2]  arrays,  softens  the  transition  of  these 
inflection  points  from  the  bending-tensile  loading  to  the  pure  tensile  loading  phase.  Thus, 
the  sharp  transition  point  at  the  bottom  of  the  equilibrium  curve  is  removed.  This  is 
observed  similarly  for  the  [90g]  panel,  but  not  for  the  [Og]  or  for  the  [02/902]^  panels.  The 
fiber  orientation  of  the  [90g]  panel  is  in  the  circumferential  direction  resists  the  snapping 
phenomena,  whereas  the  stiffness  of  the  [Og]  panel  is  in  the  longitudinal  direction  and 
therefore  does  nothing  to  inhibit  the  snapping  process.  The  tensile  recovery  phase 
observed  for  the  [Og]  panel  is  immediate  with  no  gradual  recovery  as  observed  in  the  [90g] 
panel. 

The  [02/902]^  panel  is  mixture  of  the  other  two  and  this  exhibited  by  the  C20X  analy¬ 
sis.  The  equilibrium  path  at  the  onset  of  tensile  recovery  oscillates,  partly  in  due  to  the  0° 
and  90°  fibers  conflicting  in  the  shell’s  response  to  the  added  displacement.  Notice  in  Fig¬ 
ure  5.21  the  change  in  V|/2  from  the  eight  to  the  ninth  displacement  increment.  The  magni¬ 
tude  of  change  is  significant  when  compared  to  the  previous  displacement  increments.  It 
appears  the  panel  is  beginning  to  respond  as  the  [0/-45/45/90]j  or  the  [90g]  but  is  inhibited 

by  the  presence  of  the  0°  fibers.  Thus,  the  panels  equilibrium  is  adjusted  for  the  move¬ 
ment  of  both  0°  and  90°  fibers  within  the  shell’s  thickness. 

For  a  prescribed  convergence  tolerance,  V  =  0.001,  along  with  25  prescribed  center 
transverse  displacement  increments  of  0.2382-cm,  the  Cl 00  and  ClOl  theory  code 
required  8424  CPU  and  9723  CPU  seconds,  respectively.  The  C200  theory  codes  required 
65472  CPU  seconds  and  the  C201  theory  required  70356  CPU  seconds.  A  comparison  of 
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these  results  with  the  C211  theory  will  accomplished  in  Section  6.6. 


5.5  Clamped-Free  Quasi-Isotropic  Cylindrical  Shell  Panel  with  Axial  Compression  Load 

The  earlier  quasi-isotropic  plate  and  shell  results  indicate  the  cubic-nonlinear  HTSD 
theory,  with  the  transformation  of  the  constitutive  relations  included  (C201),  predicted  a 
more  flexible  response  than  the  simpler  geometrical  variants.  Similarly,  for  the  collapse 
of  thin  isotropic  cylindrical  shells,  the  cubic-nonlinear  HTSD  theory  also  predicted  a 
slightly  more  flexible  response  than  the  classical  Donnell  or  modified  Donnell  theories.  In 
both  cases,  the  more  exact  geometric  theory  predicted  responses  nearly  identical  to  those 
of  the  simplest  elemental  codes.  Problems  combining  the  quasi-isotropic  material  and  a 
smaller  radius  of  curvature  with  large  displacements  and  rotations  should  provide  more 
interesting  results.  The  deeper  shells,  such  as  those  of  the  transversely  point-loaded 
hinged  isotropic  cylindrical  arch  and  the  transversely  point-loaded  clamped-free  deep 
cylindrical  quasi-isotropic  shell,  demonstrate  the  ability  of  the  quasi-nonlinear  HTSD  the¬ 
ory  with  the  constitutive  transformations  to  predict  more  flexible  structures.  By  accu¬ 
rately  modelling  the  large  displacements  and  rotations,  and  correctly  modelling  the 
rotation  of  the  Lagrangian  coordinates  with  respect  to  the  Eulerian  coordinates,  this  theory 
allows  the  shells  to  collapse  at  lower  equilibrium  loads. 

In  addition  to  the  transversely  loaded  quasi-isotropic  cylindrical  shells,  an  axially 
loaded  clamped-free  quasi-isotropic  cylindrical  shell  panel  with  and  without  a  centrally 
located  cut-outs  were  studied.  Figure  5.26  shows  the  shell  configuration.  The  boundary 
conditions  and  material  properties  are  listed  below.  Panels  of  this  general  configuration 
have  been  the  subject  of  many  AFIT  reseach  projects,  conducted  in  cooperation  with  the 
Wright  Laboratory  at  Wright-Patterson  AFB,  Ohio.  Panels  of  this  material  and  configura¬ 
tion  were  recently  tested  experimentally,  as  part  of  a  Master's  thesis  by  Hatfield  [77].  The 
experimental  procedures  used  for  these  experiments  were  similar  to  those  used  by  Becker 
[19],  Janisse  [93],  Tisler  [i5S,  159,  222],  and  Schimmels  [199,  200]  at  Wright-Patterson 
AFB.  Results  of  Tisler  were  used  by  Dennis  for  his  comparison  of  the  linear  HTSD  theory 
he  developed  [48,  5/].  According  to  Palazotto  and  Dennis  [162],  Tisler  had  problems  with 
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the  experimental  measurements  and  with  the  panels  not  being  properly  seated  in  the  test 
fixtures  [51:1087].  These  particular  problems  were  avoided  during  later  series  of  experi¬ 
ments  [77,  199,  200].  The  geometrical  and  material  properties  are  listed  below: 


=  0.0  cm 
.jj  =  27.94  cm 
=  0.0  cm 


m  =  v  =  w  =  Wj  =  W2  =  v1/i  =  V|/2  =  0  {clamped) 
v  =  w  =  H'j  =  W2  =  tl/j=V|/2  =  0  {clamped,  u  free) 


{free) 

(free) 

Material  AS4-3501  Graphite  Epoxy 


^2  =  30.48  cm 


£,  =  14.109  X  10‘°  Pa 


£2  =  9.243  X  10  Pa 


Gi2  =  Gi3  =  5.957  X  10  Pa 


G23  =  2.965  X  10  Pa 


Vj2  =  0.301 


0  =  1.0  radians 

h  =  0.102  cm  R  =  30.48  cm 

A  =  30.48  cm  B  =  30.48  cm 

Ply  Layup:  [0/-45/45/90] , 


Table  5.10  shows  the  results  for  total-applied  compression  load  versus  axial  displace¬ 
ment  u  computed  with  the  Cl  OX  and  C20X  theories  for  the  quasi-isotropic  cylindrical 
shell  panel  with  a  cutout.  Values  of  transverse  displacement  w  are  also  shown  in  this  table. 
As  shown  in  the  table,  the  quasi-nonlinear  HTSD  (C200  &  C201)  theory  gives  more  flexi¬ 
ble  results  to  the  modified  Donnell  (ClOO  &  ClOl)  theory.  Figure  5.27  shows  predicted 
total  equilibrium  axial  load  versus  axial  displacement  u  for  the  C 101  and  C201  theories. 
Table  5.11  shows  the  results  for  total-applied  compression  load  versus  axial  displacement 
u  computed  with  the  Cl  OX  and  C20X  theories  for  the  quasi-isotropic  cylindrical  shell 
panel  with  no  cutout.  Values  of  transverse  displacement  w  are  also  shown  in  this  table.  As 
shown  in  the  table,  the  quasi-nonlinear  HTSD  (C200  &  C201)  theory  gives  more  flexible 

results  to  the  modified  Donnell  (ClOO  &  ClOl)  theory.  Figure  5.28  shows  predicted  total 
equlibrium  axial  load  along  the  top  edge  versus  axial  displacement  u  for  the  ClOl  and 
C201  theories. 
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Table  5.10  Axial  Displacement  vs  Transverse  Displacement  and  Load  for  a  30.48-cm 
Radius,  30.48-cm  x  30.48-cm,  Quasi-Isotropic  Cylindrical  Shell  Panel  with  Centered 
10.16-cm  Cutout  under  Axial  Compression  Load  -  ClOl  and  C201  Theories 


Axial 

Disp  (cm) 

C200 

Wt  (cm) 

C200 

Load (10^ N) 

C201 

Wt  (cm) 

C201 

Load  (10^  N) 

0.0025 

-0.0041 

1.041 

-0.0041 

1.041 

0.0051 

-0.0105 

2.120 

-0.0105 

2.074 

0.0076 

-0.0210 

3.141 

-0.0232 

2.936 

0.0102 

-0.0620 

4.110 

-0.0681 

4.066 

0.0127 

-0.1745 

4.790 

-0.1953 

4.711 

0.0254 

-0.4166 

6.309 

-0..5004 

6.153 

0.0279 

-0.4648 

6.335 

-0..5334 

6.156 

0.0305 

-0.5004 

6.235 

-0.5613 

6.084 

tW  is  measured  at  (15.24,3.81) 


Table  5.11  Axial  Displacement  vs  Transverse  Displacement  and  Load  for  a  30.48-cm 
Radius  30.48-cm  x  30.48-cm  Quasi-Isotropic  Cylindrical  Shell  Panel  under  Axial 
Compression  Load  -ClOl  and  C201  Theories 


Axial 

Disp  (cm) 

C200 

Wt  (cm) 

C200 

Load  (10^ N) 

C201 

Wt  (cm) 

C201 

Load  (10^  N) 

0.0051 

-0.0011 

2.986 

-0.0011 

2.990 

0.0102 

-0.0045 

5.968 

-0.0046 

5.975 

0.0152 

-0.0055 

8.922 

-0.1212 

8.806 

0.0203 

-0.2675 

11.128 

-0.2685 

11.151 

0.0254 

-0.3741 

13.279 

-0.3752 

13.310 

0.0305 

-0.4663 

15.072 

-0.4674 

14.874 

0.0356 

-0.1696 

9.111 

-0.2083 

8.825 

tW  is  measured  at  (15.24,3.81) 
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Figure  5.27  Total  Equilibrium  Load  vs  Axial  Displacement  for  a  Quasi-Isotropic  Cylin¬ 
drical  Shell  Panel  with  a  Centered  10.16-cm  Cutout. 


Figure  5.28  Total  Equilibrium  Load  vs  Axial  Displacement  for  a  Quasi-Isotropic  Cylin¬ 
drical  Shell  Panel  without  Cutout 
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Figure  5.29  Quasi-Isotropic  Cylindrical  Shell  Under  Axial  Load,  Clamped-Free,  with 
10.16-cm  Centered  Cutout,  (u  =  0.0279  cm) 


Figure  5.30  Quasi-Isotropic  Cylindrical  Shell  Under  Axial  Load,  Clamped-Free,  with 
10.16-cm  Centered  Cutout,  (w  =  0.0305  cm) 
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Figures  5.29-5.30  show  the  30.58-c/n  x  30.58-cm  cylindrical  panel  with  a  10.16-cm 
centered  cutout  just  prior  to  collapse  {u  =  0.0279  cm)  and  just  after  collapse  (u  =  0.0305 
cm).  The  shapes  shown  in  Figures  5.29-5.30  are  similar  in  orientation  and  magnitude  to 
those  observed  in  experiments  [77,  i#9,  200].  At  collapse,  the  maximum  rotation  of  \j/2 
reached  7.8°,  and  occurred  at  the  middle  of  the  free  edges.  Only  14.7%  of  the  shell  surface 
saw  rotations  greater  than  4°.  After  the  shell  collapsed,  the  maximum  rotation  of  v|/2 

reached  9.5°  and  17.2%  of  the  shell  surface  saw  rotations  greater  than  4°.  Clearly,  for  this 
problem,  the  inclusion  of  transformation  matrices  has  a  negligible  improvement  in  the 
shell's  response  to  the  loading.  Considering  the  relative  magnitude  of  transverse  deflec¬ 
tion,  and  the  relation  of  the  depth  of  the  shell  to  shell  thickness,  these  axial  panels  repre¬ 
sent  a  rather  shallow  shell  when  compared  to  the  previous  transverse  point  load,  clamped- 
free  quasi-isotropic,  cylindrical  shell  problem.  For  the  cylindrical  shell  without  a  cutout, 
using  a  prescribed  convergence  tolerance,  V  =  0.0001,  with  15  prescribed  axial  displace¬ 
ments  of  0.0254-cm,  the  ClOO  and  ClOl  theory  code  required  12435  CPU  and  17654  CPU 
seconds,  respectively.  The  C200  theory  codes  required  77403  CPU  seconds  and  the  C201 
theory  required  83001  CPU  seconds.  Further  comparisons  between  Hatfield’s  experimen¬ 
tal  results  and  the  elastic-plastic  theory  are  made  in  Section  6.7  where  improvement  in  the 
analytical  predictions  are  expected. 


5.6  Hinged,  Isotropic,  Spherical  Shell  Cap 

One  of  the  tasks  of  this  research  was  to  incorporate  spherical  geometry  into  the  classi¬ 
cal  Donnell,  the  modified  Donnell,  and  the  quasi-nonlinear  HTSD  theory.  Thus,  a  base¬ 
line  eomparison  is  made  with  the  published  results  of  Argyris  et  al.  [6]  and  Parisch  [750]. 
A  spherical  cap  is  loaded  at  the  apex  and  supported  on  a  fixed  hinge  at  the  circumference 
(see  Figure  5.31).  Note  the  mesh  shown  in  Figure  5.31  is  for  one  quadrant  only  and  is 
included  only  to  illustrate  the  mesh  density  used  for  this  problem  and  not  the  actual  mesh 
used  for  this  particular  problem.  The  geometry  and  material  properties  are  listed  below: 
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5j=0  M  =  Wj  =  ii/j=0  (symmetry) 

S2  =  0  V  -  w  2  =  ^^2  ~  ^  (symmetry) 

5j  =  ±2.301  cm  u  =  V  =  w  =  \^2  -  ^  (hinged) 

S2  =  ±2.301  cm  M  =  v  =  w  =  \|/j=0  (hinged) 

E  =  6.90x10^^  Pa  v  =  0.3 
h  =  0.040  cm  =  R2  =  R  =  12.09  cm 

01  =  02  =  0  =  0.19024  radians  a  =  b  =  4.6002  cm 
L  =  4.5725  cm  6  =  2.1814  cm 


hinged 


A  12  X  12  mesh  is  used  to  model  the  entire  shell  cap.  Due  to  the  singularity  at  the 
central  node,  where  the  transverse  load  is  applied  to  the  spherical  shell  cap,  modelling  just 
one  quadrant  of  the  shell  was  impractical.  Flugge  [68:350-4]  and  Krause  [i00.‘257-S] 
showed  that  for  a  linear  elastic,  the  closed  form  solution  of  the  partied  differential  equa¬ 
tions  (PDFs)  of  a  spherical  shell  under  a  transvsere  loading  at  the  apex,  the  shear  forces. 
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Qi,  and  moments,  M,-,  at  the  apex  approach  infinity.  While  this  is  important  to  recognize,  it 
is  not  necessarily  the  issue  at  hand  when  considering  a  finite  element  solution.  Finite  ele¬ 
ments  are  imperfect  when  compared  to  the  closed  form  solutions  of  the  PDE.  In  addition, 
the  finite  elements  incorporated  by  the  author  couples  membrane  and  bending  through 
shell  theory.  This  coupling,  along  with  the  imperfections  of  the  element,  should  "soften" 
the  singularity  condition  noted  by  Flugge  and  Krause.  However,  by  applying  symmetry, 
in  both  directions  (s /  and  S2)  to  the  element  with  the  apex  node,  all  degrees  of  freedom 
(dof)  are  removed  except  for  the  transverse  displacement,  w.  Since  this  is  in  the  same 
direction  as  the  load  that  is  applied,  the  element  becomes  overly  stiff  when  predicting  the 
shell  response  due  to  the  lack  of  sufficient  dof  to  "soften"  the  element  and  remove  the  sin¬ 
gularity  condition. 

To  circumvent  this  singularity  condition,  the  node  requires  at  least  four  elements  [68, 
231,  240]  to  contribute  enough  energy  to  the  node  in  the  stiffness  array.  Table  5.12  shows 
the  predicted  transverse  equilibrium  loads  for  prescribed  transverse  displacement  of  the 
apex.  The  first  column  is  taken  from  Reference  [6].  Argyris  et.  al.  used  a  four-noded 
TRUMP  element  using  classical  Donnell  shell  equations.  It  is  interesting  to  note  the  clas¬ 
sical  Donnell  HTSD  theories  (SOOO  &  SOOl),  which  are  the  linear  elastic  theories  with 
Hermitian  shape  functions  for  w,  agree  quite  well  with  the  TRUMP  element  but  still  pre¬ 
dict  a  slightly  more  flexible  shell  response.  This  is  attributed  to  the  Hermitian  shape  func¬ 
tions  approximating  the  transverse  displacement,  w.  The  Hermitian  shape  functions,  first 

proposed  by  Reddy  [172, 179]  for  plate  problems,  allows  the  element  to  pass  the  patch  test 
and  solve  nonlinear  problems.  This  shape  functions  allows  coupling  of  membrane  and 
bending  activity  in  the  shell  to  be  more  flexible  than  the  four-noded,  TRUMP  element. 
The  TRUMP  element  is  a  bi-linear  element  with  only  linear  Lagrangain  interpolation 
functions  for  the  dof  u,  v,  and  w.  As  expected,  the  modified  Donnell  HTSD  (SlOX)  and  the 
cubic-nonlinear  HTSD  (S20X)  theories  predict  a  more  flexible  shell  response.  Figure 
5.32  shows  the  predicted  equlibrium  load  at  the  apex  versus  the  prescribed  transverse  dis¬ 
placement  for  various  theories  and  from  Argyris  [6]. 

Figure  5.33  shows  a  2D  view  of  the  spherical  cap  at  various  points  along  the  load-dis- 


5-40 


placement  curve  for  the  C201  analysis.  Figure  5.34  shows  the  rotational  dof,  \j/2,  along  the 
meridian  of  the  shell  in  the  S2"direction.  It  should  be  noted  that  the  same  results  occur  for 
\j/}  in  the  5; -direction  due  to  symmetry  of  curvature  in  both  directions.  When  the  pre¬ 
scribed  transverse  displacement,  w,  reaches  0.1905-cm,  the  maximum  rotation  of  \|/2 

reaches  10.16°  and  over  13%  of  the  shell  surface  saw  rotations  of  4.8°.  When  the  pre¬ 
scribed  transverse  displacement  reaches  the  collapse  point  of  the  shell  (w  =  0.381  cm),  the 

maximum  rotation  of  \|/2  reaches  15.68°  and  over  16%  of  the  of  the  shell  surface  saw  rota¬ 
tions  of  9.7°.  As  was  observed  in  Section  5.4,  when  the  onset  of  snapping  occurred,  and 
during  the  snap-through  phase,  the  constitutive  transformation  matrices  of  Eqs  (4.74)  and 
(4.75)  predicted  a  more  flexible  shell  response  than  was  observed  in  the  standard  cubic- 
nonlinear  HTSD  (S200)  theory.  As  the  transverse  displacements,  w,  approach  10*h,  the 
combinations  of  large  displacement  (w)  and  moderate  rotations  (tj/,)  allow  the  constitutive 
transformation  matrices  to  change  the  isotropic  material  into  a  psuedo-anisotropic  mate¬ 
rial.  In  particular,  the  %  terms  of  Eqs  (4.46a)-(4.64i)  become  significantly  greater  than 
unity. 


_  Argyris 

°_2_H_2_p  SOOl  Theory 
SlOl  Theory 


Figure  5.32  Equilibrium  Curves  for  Transverse  Point  Loaded  0.04-cm  Hinged  Isotropic 
Spherical  Shell  Cap  -  Ref  [6]  &  SXXl  Theories 
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Table  5.12  Predicted  Load  (N)  for  P 
0.04-cm,  Hinged, 


0.10 

0 . 0B 

0 . 06 

0 . 0*4 

0 . 02 

0 . 00 
0 

-0. 02 

-  0 . 0*4 

-  0 . 06 
-  0 . 0S 
-0.10 
-0.12 
-0.1^ 

Figure  5.33  Two-Dimensional  (2D)  P 
Various  Prescribe 


:ribed  Center  Transverse  Displacement  (cm)  of 
►tropic.  Spherical  Shell  Cap 


SlOO 

SlOl 

S200 

S201 

69.4 

69.4 

69.3 

69.3 

85.8 

85.4 

85.2 

84.8 

102.5 

101.7 

101.4 

m\ 

127.0 

125.9 

125.2 

124.0 

158.1 

156.3 

154.7 

153.2 

190.6 

187.9 

185.0 

182.8 

213.7 

204.5 

201.7 

206.9 

202.8 

192.3 

190.0 

92.5 

96.3 

67.2 

-40.8 

-48.7 

-34.7 

-40.6 

62.9 

54.5 

70.4 

64.8 

0  1 . 00 

a)  w  =  0.0  in 

b)  w  =  0.092  cm 

c)  w  =  0..239  cm 

d) w  =  0.381  cm 

e)  w  =  0.429  cm 

f)  w  =  0.478  cm 

g)  w  =  0.500  cm 


(files  of  Hinged  Isotropic  Spherical  Shell  Cap  at 
Transverse  Displacements 


0.00  0.508  1.016  1.524  2.032 


Figure  5.34  Meridan  Values  of  \\f2  for  10  Increments,  0.0476-cm  each,  of  Transverse  Dis¬ 
placement  of  Hinged  Isotropic  Spherical  Shell  -  C201  Theory 

For  a  prescribed  convergence  tolerance,  V  =0.01,  along  with  20  increments  of  pre¬ 
scribed  transverse  displacement  (0.00238-c/n),  the  SOOO  and  SOOl  theory  code  required 
4428  CPU  and  4653  CPU  seconds,  respectively.  The  SlOO  theory  codes  required  4532 
CPU  seconds  and  the  SlOl  theory  required  4801  CPU  seconds.  The  S200  theory  codes 
required  40356  CPU  seconds  and  the  S201  theory  required  43178  CPU  seconds. 


5. 7  Hinged-Hinged  Quasi-Isotropic  Spherical  Shell  Cap 

To  analyzed  the  effect  of  quasi-isotropic  material  in  a  spherical  geometry,  the  model 
from  Section  5.6  (Figure  5.31)  is  used  with  some  minor  modification.  Three  sample  prob¬ 
lems  were  conducted  of  various  ply  lay-ups.  These  were  [Og],  [02/902]^,  and  a  quasi-isotro- 
pic  lay-up  [07-45/45/90]^.  The  author  determined  early  on  that  ply  lay-ups  of  [Og]  and 
[90g]  produce  identical  results.  The  same  occurs  for  ply  lay-ups  [02/902]^  and  [902/02]5- 
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The  author  realizes  that  the  last  problem  ([0/-45/45/90]j)  is  impractible  from  an  experi¬ 
mental  view  because  of  the  difficulties  of  maintaining  a  true  45°  fiber  orientation  through¬ 
out  the  spherical  cap.  However,  this  analysis  provides  a  unique  comparison  with  the  other 
problems  and  with  an  isotropic  model  of  the  same  geometry.  The  geometric  and  material 
properties  are  listed  below: 

5j=0  M  =  Wj=\|tj=0  (symmetry) 

^2  =  0  v  =  W2  =  t|/2  =  0  (symmetry) 

=  ±2.301  cm  m  =  v  =  h'  =  \|/2  =  0  (hinged) 

s^  =  ±2.301  cm  M=:v=w  =  \j/j=0  (hinged) 

=  14.120  X  10^°  Pa  =  9.250  x  10^  Pa 

Gi2  =  Gi3  =  5.961  X  10^  Pa  =  2.967  x  10^  Pa 

Vj2  =  0.301  0j  =  @2  =  0  =  0.19024  radians 
h  =  0.04  cm  =  /?2  =  /?  =  12.09  cm 

L  =  4.573  cm  8  =  2.181  cm 

Ply  Layup  [0/-45/45/90]  ^  a  =  b  =  4.6002  cm 

Table  5.13  shows  the  predicted  transverse  equilibrium  loads  for  prescribed  transverse 
displacement  of  the  apex  of  a  [Og]  or  [90g]  ply  layeup  with  the  S200  and  S201  theories.  As 

expected,  the  S201  theory  predicts  a  slightly  more  flexible  shell.  Figure  5.35  shows  equi¬ 
librium  path  for  the  S200  and  S201  theories.  Figure  5.36  shows  the  rotational  dof,  n/2. 
along  the  meridian  of  the  shell  in  the  52-direction. 

Table  5.14  shows  the  predicted  transverse  equilibrium  loads  for  prescribed  transverse 
displacement  of  the  apex  of  a  [02/902]^  or  [902/02]^  ply  layeup  with  the  S200  and  S201 

theories.  As  before,  the  S201  theory  predicts  a  slightly  more  flexible  shell.  Figure  5.37 
shows  the  equilibrium  path  for  the  S200  and  S201  theories.  Figure  5.38  shows  the  rota¬ 
tional  dof,  \\f2,  along  the  meridian  of  the  shell  in  the  S2-direction. 

Table  5.15  shows  the  predicted  transverse  equilibrium  loads  for  prescribed  transverse 
displacement  of  the  apex  of  a  [07-45/45/90]^  ply  layeup  with  the  S200  and  S201  theories. 

As  before,  the  S201  theory  predicts  a  slightly  more  flexible  shell.  Figure  5.39  shows  the 
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equilibrium  path  for  the  S200  and  S201  theories.  Figure  5.40  shows  the  rotational  dof,  \i/2, 
along  the  meridian  of  the  shell  in  the  52-direction. 

In  all  three  classes  of  problems  (Figures  5.35,  5.37,  and  5.39),  once  the  snapping 
occurs,  the  transverse  displacements,  w,  become  significantly  large  (w  >  5h).  Referring 
back  to  Eqs  (4.74)-(4.75),  the  Cauchy  stress-strain  constitutive  transformation  matrices, 
[Tj]  and  [T2\,  enhance  the  "softening"  or  the  increasing  flexibility  of  the  composite  shell 
once  snapping  occurs.  Along  the  same  lines  of  discussion  as  previously  mentioned  in  Sec¬ 
tion  5.4,  as  the  shell  transitions  from  a  purely  bending  response  (load  is  increasing)  to  a 
bending-tension  response  (load  is  decreasing),  transverse  displacement  is  increasing  and 
the  matrices  [Fy]  and  reduce  the  shell’s  stiffness.  This  occurs  by  the  "smearing"  or 
blending  effect  on  the  stiffness  terms  in  Eqs  (4.112)-(4.115)  due  to  these  trasnformation 

arrays.  Thus,  in  Figure  5.35,  after  the  peak  loading  is  reached,  the  S201  theory  predicts  a 
more  flexible  shell  as  the  prescribed  transverse  displacement  is  increased.  Eventually,  the 
shell  transitions  into  a  pure  tension  load  due  to  the  shell  becoming  inverted.  This  phenom¬ 
ena  is  observed  for  Figures  5.37  and  5.39  as  well.  Figures  5.36,  5.38,  and  5.40  show  that 
rotations  of  the  normal  (\|/2)  increase  smoothly.  This  is  due  partly  to  the  dual  curvature 
symmetry  of  the  spherical  shell  and  the  hinged  (simply  supported)  boundary  conditions. 
In  addition,  the  spherical  shell  is  considered  shallow  by  the  parameters  specified  by  Muc 
[729, 130\.  He  identified  a  shallowness  parameter.  A,,  for  isotropic  or  orthotropic  shells: 

>.  =  4/12(1 (5.1) 

where  a  is  the  shell  base  radius,  R  is  the  shell  radius  of  curvature,  t  is  the  shell  thickness, 
and  Vij  are  the  Poisson’s  ratios  in  the  1-  and  2-directions  respectively.  For  these  problems 
the  shallowness  parameter.  A,,  is  12.25  indictating,  according  to  Muc,  a  very  shallow  shell. 
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Table  5.13  Predicted  Load  (10^  AO  for  Prescribed  Transverse  Displacement  (cm)  of 
Hinged  Quasi-Isotropic  [Og]  Spherical  Shell  Cap 


Disp 

S200 

S201 

0.0476 

'0.477 

0.510 

0.0953 

0.835 

0.829 

0.1429 

1.053 

1.043 

0.1905 

1.209 

1.170 

0.2381 

1.306 

1.283 

0.2858 

1.326 

1.252 

0.3334 

1.234 

1.193 

0.3810 

0.973 

0.914 

0.4286 

0.620 

0.527 

0.4524 

0.656 

0.595 

0.4763 

0.889 

0.861 

Figure  5.35  Equilibrium  Curves  for  Transverse  Point  Loaded  Hinged  Quasi-Isotropic  [Og] 

Spherical  Shell  Cap  -  C200  &  C201  Theories 
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Figure  5.36  Meridian  Values  of  v|/2  for  10  Increments,  0.01875-Inch  each,  of  Transverse 
Displacement  of  Hinged  Quasi-Isotropic  [Og]  Spherical  Shell  Cap  -  C201  Theory 

Table  5.14  Predicted  Load  (10^  iV)  for  Prescribed  Transverse  Displacement  (cm)  of  Quasi- 

Isotropic  [02/902]^  Spherical  Shell  Cap 


Disp 

S200 

S201 

0.0476 

0.530 

0.528 

0.0953 

0.859 

0.854 

0.1429 

1.082 

1.070 

0.1905 

1.232 

1.212 

0.2381 

1.305 

1.279 

0.2858 

1.281 

1.246 

0.3334 

1.119 

1.072 

0.3810 

0.823 

0.744 

0.4286 

0.681 

0.604 

0.4524 

0.786 

0.728 

0.4763 


1.028 


0.992 


(0.102)  (0.203)  (0.305)  (0-406)  (0.508) 

Figure  5.37  Equilibrium  Curves  for  Transverse  Point  Loaded  Hinged  Quasi-Isotropic  [O2/ 
902]^  Spherical  Shell  Cap  -  C200  &  C201  Theories 
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Figure  5.38  Meridian  Values  of  v|/2  for  10  Increments,  0.01875-Inch  each,  of  Transverse 
Displacement  of  Quasi-Isotropic  [02/902].^  Spherical  Shell  -  C201  Theory 
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Table  5.15  Predicted  Load  (10^  iV)  for  Prescribed  Transverse  Displacement  (cm)  of  Quasi- 
Isotropic  [0/-45/45/902]j  Spherical  Shell  Cap 


Disp 

S200 

S201 

0.0476 

0.552 

0.553 

0.0953 

0.884 

0.881 

0.1429 

1.105 

1.098 

0.1905 

1.263 

1.251 

0.2381 

1.361 

1.344 

0.2858 

1.377 

1.355 

0.3334 

1.267 

1.245 

0.3810 

1.026 

1.006 

0.4048 

0.917 

0.895 

0.4286 

0.871 

0.845 

0.4524 

0.916 

0.883 

(0.127)  (0.254)  (0.381)  (0.508) 


Figure  5.39  Equilibrium  Curves  for  Transverse  Point  Loade  Hinged  Quasi-Isotropic 
[0/-45/45/90]j  Spherical  Shell  Cap  -  C200  &  C201  Theories 
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0.00  0.20  0.40  0.60  0.80 


Figure  5.40  Meridian  Values  of  \^2  Increments,  0.01875-Inch  each,  of  Transverse 
Displacement  of  Quasi-Isotropic  [0/-45/45/90]j  Spherical  Shell  -  C201  Theory 

It  has  been  shown  that  for  both  isotropic  and  quasi-isotropic  shells,  the  requirement  for 
the  Cauchy  stress-strain  constitutive  transformations  matrices  occurs  when  displacements 
and/or  rotations  become  significant.  This  usually  occurs  when  the  prescribed  displace¬ 
ment  exceeds  the  von  Karman  plate  or  Donnell  thin  shell  assumption  of  5h.  When  rota¬ 
tions  become  excessively  large,  such  as  for  the  deep,  isotropic  arch  or  the  quasi-isotropic 
clamped-free,  transversely  point-loaded,  quasi-isotropic  shell,  and  the  classical  Donnell  or 
the  modified  Donnell  HTSD  theories  predict  an  overly  stiff  shell  response,  then  the  consti¬ 
tutive  transformation  matrices  of  Eqs  (4.74)  and  (4.75)  must  be  employed  for  the  total 
Lagrangian  formulation  discussed  herein.  For  those  shell  such  as  the  axially  loaded  quasi¬ 
isotropic,  cylindrical  shell  or  the  spherical  shell  (isotropic  or  quasi-isotropic)  with  a  point 
load  at  the  apex  the  determination  is  not  so  clear.  In  both  problems,  the  rotations  were  rel¬ 
atively  insignificant.  However,  for  the  spherical  shells,  the  transverse  displacement  were 
relatively  large,  when  compared  to  the  shell  thickness,  and  therefore  indicated  the  use  of 
Eqs  (4.74)  and  (4.75)  was  appropiate.  The  additional  CPU  burden  of  including  Eqs  (4.74) 
and  (4.75)  in  the  analysis  was  relatively  modest.  The  increase  in  CPU  time,  for  a  con¬ 
verged  solution  to  be  achieved,  was  usually  under  10%. 
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6.  Discussion  of  Elastic-Plastic  Shell  Analysis 


As  mentioned  in  Chapter  5,  Chapters  3  &  4  presented  the  development  of  three  basic 
material  and  geometric  variations  of  theory  for  plates  and  shells.  Results  for  an  elastic 
analysis  of  plates  and  shells  (including  the  material  transformation  matrices)  are  discussed 
in  Chapter  5.  This  chapter  discusses  the  elastic-plastic  analysis  of  plates  and  shells  with 
the  inclusion  of  the  material  transformation  matrices.  One  objective  of  this  research  was 
to  evaluate  the  accuracy  of  including  the  variations  of  the  HTSD  theory  with  the  elastic- 

plastic  material  properties  listed  in  Table  6.1,  another  objective  was  to  assess  their  limita¬ 
tions.  The  first  step  in  achieving  these  objectives  was  the  verification  of  the  computational 
tools  used  to  achieve  results.  This  verification  process  ineluded  verifieation  of  the  MAC- 
SYMA  routines  used  to  generate  the  elemental  codes  (this  process  is  discussed  in  Refer¬ 
ence  [209:Section  4.6\),  verification  of  the  finite  element  program,  and  finally  verification 
of  numerical  analysis. 

Several  test  problems  were  solved  to  verify  the  MACSYMA  generated  Fortran  codes. 
These  test  problems  were  classical  flat  plate  and  thin  shells  with  known  solutions.  In  all  of 
the  plate  and  shallow  shell  test  problems,  the  various  elemental  codes  should  give  results 
equivalent  to  the  classical  von  Karman  plate  (POlO)  code  or  the  classical  Donnell  shell 
(COlO  &  SOlO)  codes.  This  result  is  expected  since  the  additional  terms  of  the  higher- 
order  codes  include  radius  in  the  denominator.  Thus,  these  terms  are  zero  for  a  flat  plate 
and  negligible  for  the  classical  thin  shell.  Investigations  of  the  limitations  of  elastic-plas¬ 
tic  cubic-nonlinear  HTSD  theory  were  based  on  the  shallow  isotropic  shell  panel  problems 
and  a  deep  isotropic  arch  problem.  For  the  pinched  cylinder  and  sphere  problems,  the 
cubic-nonlinear  shell  (C21 1  &  S21 1)  codes  wre  considered.  Due  to  the  large  rotations  and 
based  on  the  deep  arch  solution,  it  is  expected  that  the  classical  Donnell  and  modified 
Donnell  codes  were  insufficient  for  modelling  these  shells.  In  addition,  several  quasi-iso¬ 
tropic  cylindrical  and  spherical  shell  problems  were  considered.  The  shallow  shell  prob¬ 
lems  were  thin  254.0-cm  radius  hinged-free  cylindrical  shell  panels  with  a  transverse  point 
load,  or  thin  12.09-cm  radius  hinged-hinged  spherical  shell  caps  with  a  transverse  point 
load.  The  SO.S-cm  x  50.8-c/n  cylindrical  shell  panels  studied  were  0.635-cm  thick.  The 
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4.623-cm  x  4.62-cm  isotropic  or  quasi-isotropic  spherical  shell  caps  studied  were  0.04-cm 
thick.  The  deep  shell  problems  included  an  isotropic  254.0-cm  radius  cylindrical  arch 
with  hinged-free  boundary  conditions.  Another  deep  shell  was  a  clamped-free  quasi-iso¬ 
tropic  shell  under  a  transverse  point  load.  The  27.94-cm  x  27.94-cm  cylindrical  shell  was 
0. 102-cm  thick.  The  method  used  to  solve  each  case  was  the  nonlinear,  displacement-con¬ 
trolled  method.  This  method  allows  for  convergence  past  the  buckling  or  snapping  phase 
within  each  problem  [162:9,  134].  The  convergence  tolerance,  V ,  unless  otherwise  spec¬ 
ified,  for  each  problem  was  0.005.  The  increment  of  displacement,  and  the  number  of 
increments,  is  specified  for  each  problem.  All  problems  were  run  on  a  SUN  SPARCsta- 
tion  10/80  workstation. 

Table  6. 1 :  Definitions  of  Elemental  Codes  for  Variations  of  Plastic  Theory 


Code 

Name 

GXYZ 

Displacement 

Assumption 

Field 

Material 

Coordinate 

Transformation 

Equations 
Given  in 
Appendix 

GOll 

Donnell  (1) 

Included 

?G111 

modified  Donnell  (2) 

Included 

D 

G211  , 

Cubic  Nonlinear  (3) 

Included 

E 

where 

(1)  M,-  defined  in  Eq  (C.2) 

(2)  Mj  defined  in  Eq  (D.2) 

(3)  Uj  defined  in  Eq  (E.2) 


G  =  P  for  a  plate,  C  for  a  cylindrical  shell,  S  for  a  spherical  shell,  or  A  for  an 
arbitrary  shell  geometry.  Appendix  A  lists  relations  for  arbitrary  shells, 
Appendix  B  lists  relation  for  general  spherical  shells,  and  Appendices  C 
through  E  list  relations  for  spherical  shells.  The  plate  and  cylindrical  shell 
relations  are  embedded  within  the  spherical  shell  relations.  They  are 
derived  by  setting  the  parameters  D  and/or  C  to  zero  in  the  kinematic  listed  in 
Eqs  (C.2),  (D.2),  and  (E.2). 


6.1  Point-Loaded,  Simply  Supported,  Perfectly  Plastic,  Isotropic  Plate 

To  validate  the  program,  an  elastic-perfectly  plastic,  simply  supported  2.54-cm  x  2.54- 
cm  plate  with  a  point  load  at  its  center  js  considered  to  test  the  P2XX  theories.  This  prob¬ 
lem  was  solved  by  Owen  and  Hinton  [146:370-371].  Due  to  symmetry,  only  one  quadrant 
of  the  0.0254-cm  thick  plate  is  modelled  with  an  8  x  8  mesh  of  elements.  The  material 
properties  and  geometry  are  listed  below: 

v  =  vi;2  =  M^2“®  (symmetry) 

S2  =  0  a  =  Wj=Vj/j=0  (symmetry) 
s^  =  ±1.27  cm  V  =  w  =  vi/j  =  0  (simple) 

S2  =  ±1.27  cm  M  =  vv  =  =  0  (simple) 

a  =  b  =  2.54  cm  h  =  0.0254  cm 
E  =  7.529  X  10‘°  Pa  v  =  0.3 
Gj,  =  11.032  X  10^  Pa  H'  =  0.0 

Mp  =  275.79  Pa  D  =  (Eh^)  /  (\2  (\ -v^))  =  11.298  N-m 

Figure  6. 1  shows  the  finite  element  model.  The  problem  is  solved  by  incrementing 
transverse  displacment  at  the  center  of  the  plate  and  then  calculating  the  associated  load. 
The  objective  is  to  compare  the  shell  response  to  the  predictions  of  the  elementary  bend¬ 
ing  dominated  load  analysis  within  the  context  of  Kirchhoff-Love  kinematic  hypothesis 
and  beyond  with  the  cubic-nonlinear  HTSD  theory.  Owen  &  Hinton  [146:Chapter  9] 
incorporated  a  stress  resultant,  updated  Lagrangian  formulation  that  addresses  a  layered 
elastic -plastic  analysis  of  Mindlin  bending  plates.  Their  model  ignored  large  strains  and 
large  displacements,  and  has  no  membrane  capability  (i.e.,  u  and  v  are  not  included  in  the 
element).  In  order  to  obtain  results  similar  to  those  of  Owen  &  Hinton,  the  membrane 
stiffnesses  (A^)  must  be  minimized.  Due  to  the  type  of  response  by  the  plate  for  the  load¬ 
ing  and  boundary  conditions  considered,  membrane  activity  dominates  the  plate’s 
response.  The  appropiate  response  was  finally  achieved  by  constraining  the  u  and  v 
degrees  of  freedom  from  the  model,  for  every  node  in  each  element.  This  constrainment 
effectively  removed  any  membrane  activity  from  the  element.  The  flexure  stiffnesses 
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(D,y)  dominate  the  analysis,  thereby  allowing  the  plate  response  to  be  purely  bending.  To 
model  nonlinear  material  behavior,  a  von  Mises  yield  criteria  within  the  Prandtl-Reuss 
flow  theory  is  incorporated.  Figure  6.2  shows  the  predicted  equilibrium  load  for  the  pre¬ 
scribed  transverse  displacement  for  the  various  theories  and  the  results  published  by  Owen 
&  Hinton  [146].  Note  that  the  load  values  shown  in  this  figure  are  1/4  of  the  load  applied 
to  the  corresponding  full  plate  due  to  the  enforcement  of  the  symmetry  conditions.  As 
shown  in  the  figure,  the  elastic  solution  matches  the  elementary  Kirchhoff-Love  plate  the¬ 
ory  solution  identically  (see  [220:24]).  The  physical  influence  of  the  plate  yield  criterion 
is  to  provide  a  smooth  transition  between  the  elastically  dominated  and  plastically  domi¬ 
nated  solutions. 

Table  6.2:  Predicted  Normalized  Load  for  Prescribed  Normatlized  Transverse 
Displacement  of  Simply  Supported,  Perfectly  Plastic,  Isotropic  Plate 


Disp 

Ref  [146] 

poll 

Pill 

P211 

2.5 

6.078 

6.078 

6.078 

6.078 

5.0 

11.962 

11.963 

11.963 

11.963 

7.5 

17.373 

17.378 

17.378 

17.378 

10.0 

20.000 

20.007 

20.005 

20.005 

12.5 

21.804 

21.834 

21.830 

21.830 

15.0 

22.745 

22.769 

22.764 

22.764 

17.5 

23.333 

23.391 

23.381 

23.381 

20.0 

23.922 

23.772 

23.761 

23.761 

22.5 

24.020 

24.013 

24.001 

24.001 

25.0 

24.275 

24.063 

24.050 

24.050 

The  evolution  of  plastic  zones  in  the  plate  are  depicted  in  Figures  6. 3-6.6  for  increas¬ 
ing  displacement.  These  zones  are  determined  by  the  presence  of  plastic  strain  at  the 
Gauss  points  for  each  element  at  the  layer  being  considered.  When  the  normalized  dis¬ 
placement  reaches  w*  =  8.0,  approximately  25%  of  the  plate’s  outer  surface  is  exhibiting 
strain  greater  than  2.5%.  This  is  reflected  in  the  load-displacement  curve  by  transition 
from  an  elastic  to  an  elasto-plastic  response  in  the  plate.  It  is  interesting  to  note  that  only 
8%  the  middle  surface  of  the  plate  is  only  exhibiting  strains  greater  than  2.5%.  When  the 
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simple 


Figure  6. 1  Simply  Supported  Isotropic  Plate  with  Transverse  Point  Load  with  no  Work 

Hardening 


Figure  6.2  Load-Displacement  Curves  for  Simply  Supported  Isotropic  Plate  with  no  Work 
Hardening.  Owen  &  Hinton  [146:370-371]  &  PXll  results. 


I  I  Elastic 
Plastic 


Outer  Surface  Middle  Surface 


Figure  6.3  Evolution  of  Plastic  Zone  in  Simply  Supported  Isotropic  Plate  with  no  Work 

Hardening:  w*  =5.0 


I  I  Elastic 
11^  Plastic 


Outer  Surface  Middle  Surface 

Figure  6.4  Evolution  of  Plastic  Zone  in  Simply  Supported  Isotropic  Plate  with  no  Work 

Hardening:  w*  =  10.0 
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Elastic 


Outer  Surface  Middle  Surface 


Figure  6.5  Evolution  of  Plastic  Zone  in  Simply  Supported  Isotropic  Plate  with  no  Work 

Hardening:  w*=  15.0 


I  I  Elastic 
I  Plastic 


Outer  Surface  Middle  Surface 


Figure  6.6  Evolution  of  Plastic  Zone  in  Simply  Supported  Isotropic  Plate  with  no  Work 

Hardening:  w*  =  20.0 
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normalized  displacement  reaches  w*  =  15.0  (Figure  6.5)  the  classical  plastic  hinge  lines 
appear  (exhibited  by  the  plastic  zones).  Note  the  plate  model  predicts  finite  width  plastic 
zones  neighboring  each  hinge.  These  plastic  zones  have  considerable  width  in  compari¬ 
son  to  the  plate  thickness  as  is  shown  for  displacements  w*  >  15.0  (Figure  6.5  through 
Figure  6.6).  Nevertheless,  there  is  good  quantitative  agreement  between  the  author's  solu¬ 
tion  and  those  of  Owen  &  Hinton  [146\  for  the  equilibrium  load-displacement  curve. 
Owen  &  Hinton  never  displayed  their  plasticity  regions  for  this  particular  problem.  The 
plastic  zones,  for  each  layer  of  interest,  are  determined  by  calculating  the  stresses  at  each 
Gauss  point,  transforming  them  into  the  Cauchy  reference  frame,  and  then  determining  if 
the  yield  function  was  exceeded  for  this  Gauss  point.  If  this  occurs,  the  Gauss  point  was 
identified  as  having  yielded  for  the  remainder  of  the  analysis  and  the  Prandtl-Reuss  flow 
relations  were  followed  regarding  the  elastic  and  plastic  strain  increments.  For  a  nonlin¬ 
ear,  displacement-control  solution  with  a  prescribed  tolerance,  V  =  0.01,  the  PO 11  theory 
code  required  2030.7  CPU  seconds,  the  Pill  theory  required  2250.3  CPU  seconds,  and 
the  P211  required  3243.9  CPU  seconds.  The  normal  displacment,  w,  was  initially  incre¬ 
mented  at  1.27-cm  until 


6.2  Deep,  Hinged,  Perfectly-Plastic,  Isotropic,  Cylindrical  Arch  with  Transverse  Point 
Load 

To  determine  the  effect  of  including  an  elastic  perfectly-plastic  material  analysis  for 
cylindrical  shells,  the  deep  isotropic  arch  problem  from  Section  5.2  is  studied.  It  is  a 
254.0-cm  radius  arch  with  a  2.54-c/n  square  cross  section  and  an  opening  anlge  of  0.92 

radians  (106.0°).  The  arch  configuration  is  shown  is  shown  in  Figure  6.7.  The  geometric 
and  material  data  are  shown  below; 

5j=0  v  =  W2  =  tj/2  =  0  (symmetry) 

52  =  0  M  =  H'j=V|/j=0  (symmetry) 

5j  =  ±1.27  cm  (free) 

^2  =  ±234.95  cm  m  =  v  =  >v  =  \|/j=0  (simple) 
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Figure  6.7  Hinged,  Point-Loaded,  Perfectly  Plastic  Isotropic  Cylindrical  Arch 


It  should  be  noted  that  the  values  for  Cy  and  H'  are  arbitrarly  chosen  for  this  problem. 
They  were  chosen  to  establish  an  elastic-perfectly  plastic  isotropic  cylindrical  arch  analy¬ 
sis.  Solutions  for  this  problem  were  compared  using  C2XX  codes  and  a  1  x  40  element 
mesh  to  model  one  quadrant  of  the  arch.  Data  from  the  various  geometrical  theories  are 
shown  in  Table  6.3.  When  the  elastic-perfectly  plastic  material  analysis  is  included,  the 
quasi-nonlinear  theory  (C211)  predicts  a  more  dramatic  collapse  than  the  elastic  analysis. 
Figure  6.8  shows  the  load  versus  crown  displacement  predicted  by  the  C2XX  theories. 


63.5  76.2 


Figure  6.8  Deep  Arch  Crown  Displacement  vs  Load  -  ClOO  &  C2XX  Theory 


Table  6.3:  Equilibrium  Point  Load  (10^  N)  for  Prescribed  Transverse  Displacement  (cm) 
of  Perfectly  Plastic  Isotropic  Cylindrical  Arch 


Disp 

4^ 

Donnell 

SLR* 

C200 

C201 

C211 

10.16 

2.763 

2.834 

2.823 

2.821 

2.096 

20.32 

3.975 

4.038 

4.021 

3.834 

2.932 

30.48 

4.573 

4.481 

4.464 

4.133 

3.317 

40.64 

4.841 

4.443 

4.431 

3.977 

3.454 

50.80 

4.876 

4.041 

4.037 

3.521 

3.338 

60.96 

4.808 

3.488 

3.532 

2.881 

2.793 

71.12 

4.579 

2.284 

2.277 

2.077 

2.592 

81.28 

N/A 

N/A 

N/A 

N/A 

2.026 

*Ref  [162:207] 
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Along  with  the  large  movement  and  rotations,  the  changing  constitutive  relations  near  the 
arch  crown  creates  a  more  flexible  response  for  the  model. 

Figures  6.9-6.13  show  the  developement  of  the  plastic  zones  along  the  arch  surface 
and  mid-surface.  As  expected,  plasticity  occurs  along  the  counter-flexure  points  of  the 
arch  and  at  the  location  of  the  loading.  By  the  end  of  the  analysis,  the  entire  outer  (con¬ 
vex)  surface  of  the  arch  is  behaving  plastically  (see  Figure  6.13),  along  with  the  middle 
surface.  This  allows  for  the  significantly  more  flexible  shell  response  observed  in  Figure 
6.8.  This  is  a  relatively  deep  shell  with  the  values  of  bib  and  0  over  five  times  larger  than 

a  typical  shallow  arch  [162:205].  The  boundary  conditions  and  loading  result  in  a  sym¬ 
metric  response  where  the  arch  crown  displaces  only  radially.  Previously,  the  results  from 
the  elastic  solutions  (i.e.  COOX,  ClOX,  and  C20X)  were  compared  with  the  inextensible 
solution  of  Huddelston  [SS].  Huddleston  provided  closed-form  solutions  for  an  arch  with 
an  extensible  midsurface.  He  defines  the  extensibility  of  the  arch  by  a  factor,  c,  as  shown 
in  the  following 


C  = 

A(2b)^ 

where  I  is  the  area  moment  of  inertia,  A  cross-sectional  area,  and  b  is  given  in  Figure  6.7. 


The  inextensible  solution  is  represented  by  c  =  0  since  the  bending  El  is  very  small  com¬ 
pared  to  the  axial  stiffness  EA.  The  geometry  of  the  arch  for  the  present  formulation  gives 


an  exentsibility  factor  of  c  =  3.255  x  10'^. 

Solutions  were  obtained  and  compared  to  Huddleston  results  for  c  =  0.0  and  0.01.  The 
collapse  load  for  the  Donnell  arch  (COOl)  is  approximately  13%  below  that  for  the  inex¬ 
tensible  solution  (c  =  0.0),  yet  is  much  larger  than  the  published  extensible  solution  (c  = 
0.01).  The  extensibility  of  the  middle  is  seen  to  increase  the  deflection  of  the  arch  under 
the  load,  as  is  expected  since  the  arch  is  in  compression.  The  parameter  c  for  the  present 
case  is  very  small.  Therefore,  the  results  tend  to  follow  the  c  =  0.0  results  closely  until 
near  the  peak  load..  The  COOl,  ClOl,  and  C201  responses  fall  between  the  curves  in  the 
postcollapse  regions  and  gives  an  expected  response  for  the  extensibility  factor  for  the 
present  arch  geometry.  The  ClOl  collapse  load  is  approximately  15%  and  the  C201  col¬ 
lapse  load  is  approximately  20%  less  than  the  inextensible  solution.  Additionally,  the 
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a)  Outer  Surface 


Figure  6.9  Evolution  of  Plastic  Zones  for  Perfectly  Plastic  Isotropic  Cylindrical  Arch: 

w  =  20.32  cm 


a)  Outer  Surface 


IHHHHaHBHHHBBnnHMr  IBBBBBBBBBBBBBBB 
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Figure  6.10  Evolution  of  Plastic  Zones  for  Perfectly  Plastic  Isotropic  Cylindrical  Arch: 

w  =  30.48  cm 
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a)  Outer  Surface 


Figure  6. 1 1  Evolution  of  Plastic  Zones  for  Perfectly  Plastic  Isotropic  Cylindrical  Arch: 

w  =  40.64  cm 


a)  Outer  Surface 


Figure  6. 12  Evolution  of  Plastic  Zones  for  Perfectly  Plastic  Isotropic  Cylindrical  Arch: 

w  =  50.8  cm 
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a)  Outer  Surface 


Figure  6. 13  Evolution  of  Plastic  Zones  for  Perfectly  Plastic  Isotropic  Cylindrical  Arch: 

w  =  60.96  cm 

different  from  that  of  the  COOl  and  inextensible  results  in  that  it  does  not  fall  between  the 
c  =  0.0  and  0.01  curves.  This  is  attributed  to  the  higher-order  representation  of  the  defor¬ 
mation  of  the  midsurface  of  the  arch  and  due  to  the  continually  changing  properties  of  the 
elastic-perfectly  plastic  material.  Recall  that  the  C201  formulation  included  many  nonlin¬ 
ear  in-plane  displacement  terms  in  the  strain  definitions  that  are  not  included  in  the  COOl 
and  ClOl  formulations.  In  addition,  the  C211  formulation  allows  the  material  to  behave 
nonlinearly.  Therefore,  one  might  expect  a  greater  effect  of  extensibility  in  the  C201  & 
C211  formulations  compared  to  the  COOl  &  ClOl  formulations  as  the  displacements 
become  large,  i.e.,  where  the  additional  terms  become  more  important.  Almroth  &  Bro¬ 
gan  [5]  saw  a  similar  effect  compared  to  the  inextensible  solution  of  a  deep  arch.  Their 
finite  element  formulation  allows  nonzero  midplane  straining,  and  their  results  were  con¬ 
sistently  more  flexible  compare  to  the  inextensible  results.  The  transverse  shear  degrees 
of  freedom  have  a  small  effect  but  also  increase  the  displacement  under  the  load  compared 
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of  freedom  have  a  small  effect  but  also  increase  the  displacement  under  the  load  compared 
to  the  inextensible  solution  [202]. 

For  a  nonlinear,  displacement-control  solution,  with  a  prescribed  tolerance,  V  = 
0.005,  along  with  3  prescribed  transverse  displacements  of  10.16-cm  and  10  prescribed 
transverse  displacements  of  5.08-cm,  the  C211  theory  required  35479.4  CPU  seconds.  To 
ensure  convergence  at  this  prescribed  tolerance,  the  increments  of  displacement  were  half 
of  those  used  for  the  C201  theory  when  approximately  15%  of  the  convex  surface  saw 
strains  greater  than  2.5%.  The  CPU  time  is  a  significant  increase,  for  the  same  tolerance, 
when  compared  to  C201  theory  in  generating  a  solution. 


6.3  Pinched,  Perfectly  Plastic,  Isotropic  Cylinder  with  Rigid  Membranes  and  Two  Trans¬ 
verse  Point  Loads 

To  test  the  plasticity  model  for  cylindrical  shells,  a  short  isotropic  cylinder  bounded  by 
two  rigid  diaphragms  at  its  ends,  loaded  with  two  transverse  pinching  loads  at  the  middle 
section,  and  characterized  with  no  kinematic  hardening,  is  considered.  Simo  &  Kennedy 
[207]  published  results  for  this  model  using  their  total  Lagrangian,  large  strain  formula¬ 
tion.  Due  to  symmetry,  only  one  octant  of  the  cylinder  is  modelled.  The  3-units  thick  cyl¬ 
inder  is  180-units  in  length  with  a  300-unit  radius.  Note:  Simo  &  Kennedy  used  non- 
dimensionalized  units.  The  geometry  and  material  properties  are  listed  below.  The  finite 

element  model  is  given  in  Figure  6. 14.  Because  of  the  geometry,  and  the  difficulty  of  pre¬ 
dicting  stress  in  a  displacement-based  finite  element  formulation,  a  heavily  refined  8  x  36 
element  mesh  is  used  to  model  the  octant  with  symmetry  about  the  j2-axis  and  along  one 
edge  of  the  s y-axis.  The  other  edge  of  the  ^y-axis  models  the  rigid  diaphragm.  The  mate¬ 
rial  and  geometrical  properties  are  listed  below: 

=  0.0  V  =  w  =  h'2  =  i|/2  =  0  {rigid  membrane) 

^2  =  0.0  V  =  ^2  =  1^2  “  ^  {symmetry) 

=  90.0  M  =  vv  j  =  \j/j  =  0  {symmetry) 

S2  =  471.24  v  =  W2  =  ^2~^  {symmetry) 
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a  =  90.0 
E  =  3000.0 
R  =  300.0 


b  =  471.24 
V  =  0.3 


h  =  3.0 

0  =  1.57  radians 


=  270.0  H'  =  0.0 


a  =  90.0 
b  =  471.2388 
h=3.0 

9  =  1.57  radians 
R  =  300.0 

symmetry 
(v  =  w  2  =  \l/,2  =  0) 


rigid  membrane 
(v  =  W  =  W  2  =  ^^2  -  0) 


symmetry 

(u  =  w  1  =  \j/ 1  =  0) 


symmetry 

(v  =  w  2  =  Vi/,2  =  0) 


Figure  6.14  Pinched,  Perfectly  Plastic,  Isotropic  Cylinder  Bounded  with  Rigid  Mem¬ 
branes  under  Transverse  Point  Loads. 


Table  6.4  shows  the  predicted  equilibrium  load  for  the  prescribed  transverse  displace¬ 
ment  for  the  C201  theories  and  compared  to  the  results  from  Simo  &  Kennedy  [207].  The 
predicted  equilibrium  load  versus  prescribed  transverse  displacement  is  shown  in  Figure 
6.15  for  the  C201  &  C211  theories  and  compared  with  the  results  published  by  Simo  & 
Kennedy. 

Simo  &  Kennedy  noted  that  the  step-like  regions  (see  Figure  6.15)  in  their  load-dis¬ 
placement  curve  is  due  to  snap-through  mechanisms  which  arise  due  to  the  relatively 
coarse  mesh  in  comparison  to  the  width  of  the  indentation  ridge  forming  about  point  load 
upon  loading  [207:162-164],  In  other  words,  such  regions  are  due  to  the  nature  in  which 
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the  ridge,  or  the  point  of  inflection  point  of  the  cylinder,  passes  through  the  elements  as  the 
inflection  point  moves  outward.  This  inflection  point,  in  their  model,  if  of  equal  width  to 
or  below  the  element  width.  The  evolving  plastic  zones  for  the  convex  surface  of  the 

pinched  cylinder  are  shown  in  Figures  6.16-6.20.  The  corresponding  evolving  plastic 
zones  for  the  middle  surface  of  the  pinched  cylinder,  at  w  =  150  and  w  =  250,  are  shown  in 
Figures  6.21-6.22. 


Table  6.4:  Predicted  Equlibrium  Load  ( 10^  Units)  for  Prescribed  Transverse 
Displacement  of  Pinched,  Perfectly  Plastic,  Isotropic  Cylinder 


Disp 

Ref  [207] 

C201 

C211 

25.0 

0.119 

0.365 

0.142 

50.0 

0.201 

0.534 

0.253 

75.0 

0.298 

0.796 

0.296 

100.0 

0.391 

1.068 

0.361 

125.0 

0.452 

1.565 

0.438 

150.0 

0.524 

N/A 

0.531 

175.0 

0.629 

4.823 

0.657 

200.0 

0.927 

N/A 

0.950 

225.0 

1.427 

N/A 

1.587 

250.0 

2.376 

N/A 

2.553 

275.0 

4.976 

N/A 

5.112 

It  should  be  noted  that  the  stress  develops  along  the  hinge  line  of  the  cylinder  (where  the 
cylinder  develops  an  inflection  point)  and  where  the  load  is  applied.  By  the  end  of  the 
analysis,  as  the  cylinder  undergoes  pure  membrane  response,  the  entire  convex  surface  is 
behaving  plastically.  However,  the  middle  surface  (Figures  6.21-6.22)  is  still  behaving 
elastically  (except  at  the  load  point  and  the  point  of  inflection  in  Figure  6.22).  For  a  non¬ 
linear,  displacement-control  solution,  with  a  prescribed  tolerance,  V  =  0.005,  and  11  pre¬ 
scribed  transverse  displacements  of  25.0,  the  C201  theory  required  23663.2  CPUseconds 
to  generate  a  solution  while  the  C211  theory  required  127891.3  CPU  seconds.  The 
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Figure  6. 15  Predicted  Equilibrium  Load  for  Prescribed  Transverse  Displacement  for 
Pinched,  Perfectly  Plastic,  Isotropic  Cylinder  with  Rigid  Membrane 


Membrane 


Symmetry 


Symmetry 


Symmetry 


Figure  6.16  Evolution  of  Plastic  Zone  for  Convex  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  50.0 
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Symmetry 


Figure  6.17  Evolution  of  Plastic  Zone  for  Convex  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  100.0 


Symmetry 


Figure  6.18  Evolution  of  Plastic  Zone  for  Convex  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  150.0 
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Membrane 


Symmetry 


Symmetry 


Symmetry 


Figure  6.19  Evolution  of  Plastic  Zone  for  Convex  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  200 


Symmetry 


Figure  6.20  Evolution  of  Plastic  Zone  for  Convex  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  250 
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Membrane 


Symmetry 

Figure  6.22  Evolution  of  Plastic  Zone  for  Middle  Surface  in  Pinched,  Perfectly  Plastic, 

Isotropic  Cylinder:  w  =  250 
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increase  in  CPU  time  is  attributed  to  the  significant  requirement  of  resolving  the  stress 
field  (an  eight  increment  step  -  Eq  (G.4))  for  each  Gauss  point  in  each  layer  (for  an  isotro¬ 
pic  shell  the  default  is  eight  layers). 


6.4  Hinged,  Perfectly-Plastic,  Isotropic,  Spherical  Cap  with  Apex  Load 

A  logical  extension  of  the  elastic-plastic  analysis  is  to  consider  a  spherical  shell  geom¬ 
etry.  One  well  documented  problem  is  the  elastic-plastic  model  of  the  isotropic  spherical 
shell  cap  discussed  in  Section  5.6.  This  problem  has  been  previously  analyzed  by  several 
authors  [166,238  ],  the  first  being  Argyris  et.  al.  [S].  It  is  an  0.04-cm  thick  isotropic  spher¬ 
ical  shell  cap,  hinged  on  the  boundaries  with  a  transverse  point  load  at  the  apex.  The  shell 
is  considered  to  be  perfectly  plastic  and  has  a  12.09-cm  radius  of  curvature  with  a  depth  of 
2.181-cm.  Figure  6.23  shows  the  spherical  shell  problem.  The  mesh  shown  is  for  one 
quadrant  only,  to  demonstrate  the  mesh  density,  not  the  actual  mesh  used.  Refer  to  Section 
5.6  for  the  discussion  regarding  the  singularity  condition  of  a  point  load  applied  at  the 
apex  of  a  spherical  shell.  The  boundary  conditions  and  material  properties  are  listed 
below. 

=  0.0  cm  M  =  vv  j  =  \|/j  =  0  (symmetry) 

^2  =  0.0  cm  V  =  w  2  =  ^2  ~  ^  (symmetry) 

Jj  =  ±2.301  cm  u  =  V  =  w  =  \\i2  =  0  (hinged) 

^2  =  ±2.301  cm  M  =  v  =  w  =  \|/j=0  (hinged) 

a  =  b  -  4.60  cm  =  R  =  12.09  cm  h  =  0.04  cm 

E  =  6.895  X  10^*^  Pa  v  =  0.3  0^  =  0^  =  0  =  1.57  radians 

L  =  4.753  cm  5  =  2.181  cm  Oy  =  1.379  x  10^^  psi  H'  =  0.0 

The  spherical  shell  cap  is  modelled  with  a  12x12  element  mesh  for  the  entire  shell 
and  eight  layers  are  used  to  model  through-the-thickness  plasticity.  The  results  are  com¬ 
pared  to  the  TRUMP  solution  of  [S].  Table  6.5  shows  the  predicted  equilibrium  loads  for 
prescribed  increments  of  transverse  displacement  for  the  S2XX  theories.  Figure  6.24 
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shows  the  equilibrium  curves  for  the  S200,  S201,  and  S211  theories  as  compared  to  the 
results  from  Argyris  et.  al.  [S]  and  Parish  [166\.  As  expected  the  elastic  perfectly-plastic 
(S211)  shell  exhibits  a  greater  flexible  response  than  the  purely  elastic  shell.  This  flexibil¬ 
ity  is  shown  by  a  reduction  in  the  snap  load,  and  an  increase  in  displacement  during  the 


a  =  b  =  4,60  cm 

Rl  =  R2  =  R  =  12.09  cm 


Figure  6.23  Hinged  Apex-Loaded  Isotropic  Elastic  Perfectly-Plastic  Spherical  Cap 


snap-through  and  recovery  phases.  Figures  6.25-6.27  show  the  evolution  of  the  plastic 
zones  on  the  concave  surface  of  the  spherical  shell.  The  plastic  zones  are  determined  by 
the  presence  of  plastic  strain  at  the  Gauss  points,  hence  the  ability  for  part  of  an  element  to 
be  behaving  elastically  and  plastically.  As  expected,  plasticity  develops  early  at  the  apex 
of  the  shell,  where  the  incremental  displacement  is  applied,  and  at  the  corners  due  to  the 
hinged  boundary  conditions  from  both  sides.  With  further  displacement,  bending  stresses 
develop  and  increase  in  magnitude  as  does  the  plasticity  on  the  shell.  At  the  point  of  snap¬ 
ping  (Figure  6.26)  approximately  18%  of  the  shell  surface  is  exhibiting  strains  greater  than 
2.5%.  However,  Figures  6.28-6.29  show  how  little  plasticity  develops  at  the  shell’s  mid- 


surface.  For  the  same  point  of  the  onset  of  snapping,  only  6%  the  shell’s  midsurface  is 
exhibiting  strains  greater  than  2.5%.  This  correlates  well  with  results  published  by  Yuan 

[238].  The  author's  equilibrium  load  versus  transverse  displacement  results  agree  very 
well  with  those  published  by  Argyris  and  Parish.  The  inclusion  of  the  transformation 
matrices  for  the  elastic-plastic  constitutive  relations,  along  with  the  eight-noded  quadratic 
element  and  the  cubic-nonlinear  HTSD  theory  yields  a  more  flexible  shell  response  than 
the  TRUMP  element  of  Argyris  [S]  or  the  QUAD4  element  of  Yuan  [238].  For  a  nonlin¬ 
ear,  displacement-control  solution,  with  a  prescribed  tolerance,  V  =  0.01,  along  with  30 
prescribed  transverse  displacement  increments  (0.0238-cm),  the  S211  theory  required 
121547.0  CPU  seconds.  The  increase  in  CPU  time  is  again  attributed  to  the  significant 
requirement  of  resolving  the  stress  field  after  plasticity  occurs. 

Table  6.5  Predicted  Equilibrium  Load  {N)  for  Prescribed  Transverse  Displacement  (cm) 
of  a  Hinged  Isotropic  Elastic-Perfectly  Plastic  Spherical  Shell  Cap 
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0.00 


0.127 


0.254  0.381 


0.635 


Figure  6.24  Load-Displacement  Equilibrium  Curves  for  Hinged  Isotropic  Elastic-Per- 

fectly  Plastic  Spherical  Shell  Cap 


Figure  6.25  Evolution  of  Plastic  Zones  for  Concave  Surface  of  Hinged  Isotropic  Elastic- 
Perfectly  Plastic  Spherical  Shell  Cap;  w  =  0.0478  cm 
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Figure  6.26  Evolution  of  Plastic  Zones  for  Concave  Surface  of  Hinged  Isotropic  Elastic- 
Perfectly  Plastic  Spherical  Shell  Cap:  w  =  0.429  cm 


Figure  6.27  Evolution  of  Plastic  Zones  for  Concave  Surface  of  Hinged  Isotropic  Elastic- 
Perfectly  Plastic  Spherical  Shell  Cap:  w  =  0.523  cm 


Figure  6.28  Evolution  of  Plastic  Zones  for  Middle  Surface  of  Hinged  Isotropic  Elastic- 
Perfectly  Plastic  Spherical  Shell  Cap;  w  =  0.0478  cm 


Figure  6.29  Evolution  of  Plastic  Zones  for  Middle  Surface  of  Hinged  Isotropic  Elastic 
Perfectly  Plastic  Spherical  Shell  Cap:  w  =  0.429  cm 
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6.5  Axially  Loaded,  Graphite  Polyetherether  Ketone  (Gr/PEEK)  Tensile  Coupon 

A  relatively  simple  method  of  validating  the  theoretical  and  analytical  models  for  lam¬ 
inated  composite  structures  is  to  compare  against  experimental  tensile  coupon  data.  Gould 

[71]  ran  several  Gr/Peek  ±45°  tensile  coupon  tests.  He  then  compared  an  analytical 
model's  predictions  with  these  experimental  results.  We  are  only  interested  in  comparing 
the  author's  analytical  model  with  Gould's  experimental  data  as  a  means  of  validating  the 
nonlinear  anisotropic  material  characterization,  including  a  large  strain  formulation.  The 
tensile  coupon  is  2.54-cm  wide  and  25.4-cm  in  length  with  a  thickness  of  2.134-cm.  A  ply 
lay-up  of  [45/-45]45  is  modelled  with  a  2  x  20  element  mesh.  The  finite  element  model  is 

given  in  Figure  6.30.  Since  the  ply  lay-up  consists  of  only  ±45°  oriented  plies,  symmetry 
cannot  be  used.  The  geometric  and  material  properties  are  listed  below: 

=  b/2  v  =  H'  =  Wj  =  W2  =  tj/j  =Vj/2  =  0  (clamped) 

=  -b/2  M  =  v  =  w  =  Wj  =  W2  =  Vi=t|/2  =  0  (clamped) 

S2  =  ±a/2  in  u  =  v  =  w  =  w^  =  W2  =  '^l  =  '^2 
a  =  2.54  cm  b  =  25.4  cm  h  -  2.134  cm 

E^  =  13.552  X  10‘®  Pa  E^  =  1.069  x  lo’°  Pa 
Gi2  =  Gj3  =  5.602  X  10^  Pa  G^^  =  4.482  x  10^  Pa 
V12  =  0.305  =  2.199x10^  Pa 

Gy  =  8.635  X  10^  Pa  Gy  =  5.339  x  10^  Pa 

^22  '12 

fcj  =  0.0  1/Pa  ^2  =  1-827  xlO-''^  1/Pa 

^3  =  1.189  X  10-16  1/Pa  n  =  2.862 

The  values  for  Gy]],  0^22^  ^2’  ”  for  Graphite/PEEK  material  refer¬ 

enced  in  [71]  were  determined  from  the  experimental  stress-strain  curves  shown  in  Fig¬ 
ures  6.31-6.33.  Predicted  load  versus  prescribed  results  are  shown  in  Table  6.6.  Figure 
6.34  shows  the  predicted  equilibrium  load  vs  prescribed  axial  displacement  for  the  P200, 
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(v  =  W  =  W  1  =  W2  =  \|/ 1  =  11/2  =  0) 


a  =  2.54  cm 
b  =  25.4  cm 
h  =  2.134  cm 


-  clamped 

(u  =  V  =  w  =  w  1  =  W2  =  \|/i  =  \l/2  =  0) 


Figure  6.30  ±45°  Axially  Loaded  Gr/PEEK  Tensile  Coupon 


Figure  6.31  Experimental  CTm  -  Eji  Curves  for  Gr/PEEK  [7i] 


E2=  1.069x  10^^  Pa 

cTy22  ~  8.653  X  10^  Pa 

k2=  1.827  X  10'^'^  1/Pa 
n  =  2.674 


0.00  . nil. . . 

0.000  0.002  0.004  0.006 


Strain 

(in/in) 


0.008  0.010  0.012  0.014 


Figure  6.32  Experimental  022  -  £22  Curves  for  Gr/PEEK  [7i] 


Gi2  =  5.602  X  10^  Pa 
=  Oyi2  =  5.339  x  lO'^Pa 

137.90^  k3  =  1.189  X  10'^^  1/Pa 
;  n  =  2.674 

103.42- 


-  f  Strain 

;/  (in/in) 

1.00  "T  I'  M  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  ri  i  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  11  I  I  I  I  I  I  I  I’  I  I  I  I  I  I  I  I  I  T  I  I  I  I  I  I  I  I  I  I  I  I  I  I 

0.000  0.050  0.100  0.150  0.200  0.250  0.300  0.350  0.^ 


Figure  6.33  Experimental  ai2  -  £12  Curves  for  Gr/PEEK  {71] 


Table  6.6  Predicted  Equilibrium  Load  (10^  N)  for  Prescribed  Axial  Displacement  (cm)  of 
a  2.134-cm  Clamped-Free  Quasi-Isotropic  Gr/PEEK  Tensile  Coupon 


*See  Ref  [7i]. 

P201,  P210,  P211  theores  and  how  these  various  theories  compared  with  Gould's  experi¬ 
mental  data.  It  should  be  noted  that  the  P210  theory  was  a  purely  an  exercise  in  code 
development  and  was  never  used  again  in  this  research  effort.  As  expected,  the  P211  the¬ 
ory  provides  the  closest  prediction  to  the  experimental  results  from  Gould.  The  evolving 
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plastic  zones  of  the  tensile  coupon  model,  for  the  middle  and  upper  surfaces,  are  shown  in 
Figures  6.35-6.37.  The  solution  for  P211  stopped  at  m  =  4.572-cm  (Figure  6.34).  This 
was  due  to  the  significant  reduction  in  stiffness  by  the  presence  of  plastically  behaving 
Gauss  points  across  the  width  of  the  tensile  coupon  (Figure  6.37).  Up  until  this  increment 
of  displacement,  the  plasticity  provided  a  "softening"  or  reduction  in  equilibrium  load  for 
each  prescribed  increment  of  displacement  in  the  coupon’s  response.  Once  plasticity  was 
spread  across  the  width,  the  loss  in  stiffness  was  so  significant,  for  the  step  size  of  dis¬ 
placement  increment,  that  the  code  diverged.  A  refinement  in  the  mesh  in  this  region,  and 
a  reduction  in  the  displacement  increment  beyond  u  -  4.064-cm  would  provide  a  means  of 
progressing  beyond  this  point.  It  is  interesting  to  note  that  only  7.5%  of  the  coupon  is 
exhibing  strains  greater  than  2.125%. 


Figure  6.34  Predicted  Equilibrium  Load  for  Prescribed  Axial  Displacement  for  Gr/PEEK 
Tensile  Coupon  -  Experimental  [],  PXll  Theories 


Because  of  the  ±45°  orientation,  plasticity  occurs  almost  instantenously  on  the  outer 
and  middle  surfaces,  with  only  a  negligable  difference  in  the  amount  of  area  behaving 
plastically.  From  Figures  6.34-6.37  one  would  expect  the  load-displacement  curve  to  be 
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(a)  Upper  Surface 


(b)  Middle  Surface 


Figure  6.35  Evolution  of  Plastic  Zones  in  Gr/PEEK  Tensile  Coupon:  u  =  0.254  cm 


(b)  Middle  Surface 


Figure  6.36  Evolution  of  Plastic  Zones  in  Gr/PEEK  Tensile  Coupon:  u  =  2.54  cm 
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HE 

(b)  Middle  Surface 


Figure  6.37  Evolution  of  Plastic  Zones  in  Gr/PEEK  Tensile  Coupon:  u  =  4.572  cm 

significantly  altered  from  the  elastic  solution,  which  is  observed  in  Figure  6.34.  This 
"material  softening"  effect  allows  for  a  significantly  reduced  ultimate  load  (predicted  fail¬ 
ure)  and  an  increase  in  displacement.  The  "material  softening"  effect  is  attributed  to  the 
highly  nonlinear  shear  stress-strain  curve.  The  yield  stress  for  a|2  -  E12  curve  is  2.43% 
the  magnitude  of  the  yield  stress  for  the  0^2  —  £12  curve.  Note:  due  to  the  restraints  shown 
in  Figure  6.30  the  stress  field  in  non-homogeneous  producing  the  varying  stress  results 

shown  in  Figures  6.35-6.37.  Thus,  for  a  ±45°  coupon,  it  is  not  unexpected  to  see  a  signfi- 
cant  dependence  on  the  shear  strain  material  properties.  For  a  nonlinear,  displacement- 
control  solution,  with  a  prescribed  tolerance,  V  =  0.001,  along  with  18  prescribed  axial 
displacements  of  0.254-cm,  the  P201  theory  required  32912.3  CPU  second  while  the  P211 
theory  required  78341.9  CPU  seconds.  The  displacement  increments  were  one-quarter  to 
one-half  the  magnitude  of  the  displacement  increments  used  for  the  P201  analysis.  The 
increase  in  CPU  time  is  again  attributed  to  the  significant  requirement  of  resolving  the 
stress  field  after  plasticity  occurs. 
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6.6  Clamped-Free,  Quasi-Isotropic,  Cylindrical  Shell  Panel  with  Transverse  Point  Load 

The  first  graphite  epoxy,  quasi-isotropic  shell  problem,  chosen  for  this  research,  was  a 
deep,  cylindrical  shell  panel  with  a  transverse  point  load.  This  problem  demonstrates  a 
severe  test  of  an  HTSD  theory,  including  large  strain  theory,  because  of  the  shell’s  depth, 
thickness,  and  quasi-isotropic  properties.  A  deep  30.48-cm  radius  quasi-isotropic  27.94- 
cm  by  30.48-cm  cylindrical  shell  panel  was  clamped  at  its  lateral  boundaries  and  free  on 
the  circumferential  boundaries.  The  shell  configuration  is  shown  in  Figure  6.38.  The  geo¬ 
metric  and  material  properties  are  listed  below 


=  b/2 

U  =  V  =  H'  =  Wj  = 

:  W  2  = 

Vi  = 

^2  = 

0 

(clamped) 

=  -b/2 

M  =  V  =  W  =  W  j 

=  W_2  = 

:  1]/, 

=  ^2  = 

:  0 

(clamped) 

=  ±a/2 

M  =  V  =  W  =  W  j 

=  >^,2  = 

=  V, 

=  V2 

(free) 

a 

=  27.94  cm 

b  =  30.48  cm 

h  ■- 

=  0.102  cm 

R 

=  30.48  cm 

0  =  1.0  radians 

Material  AS4-3501  Graphite  Epoxy 

E,  = 

14.1 14  X  10^°  Pa 

E,= 

9.246  X  10^ 

Pa 

^12  “ 

:  Gi3  =  5.958x  10^ 

Pa 

^23 

=  2.966  X 

10^*^  Pa 

Vj2  =  0.313  Gy  =  1.553x  10^  Pa 

C5y  =  4.548  X  10^  Pa  Oy  =  3.932  x  10^  Pa 
^22  ^12 

fc,  =  0.0  1/Pa  *2  =  7.753  x  10-23  1/Pa 

^3  =  1.606  X  10-‘8  1/Pa  n  =  3.060 
Ply  Lay-ups  [07-45/45/90]^ 

The  0.102-cm  thickness  is  significantly  lesser  than  the  4.826-cm  depth  of  the  shell. 
Results  for  the  transversely-loaded  shell  were  compared  with  computational  results  of  Tsai 
and  Palazotto  [225,  226]  and  those  shown  in  Section  5.4  Palazotto  and  others  [76i-i65] 
investigated  shells  of  this  configuration  and  compared  static  and  dynamic  results  for  dif¬ 
ferent  material  properties  and  ply  lay-ups.  Their  work  was  typically  based  on  a  96  ele¬ 
ment  model  of  a  quadrant  of  the  shell.  This  mesh  was  chosen  based  on  the  results  of  their 


6-35 


convergence  studies  summarized  in  Section  5.4.  Tsai  and  Palazotto  [225]  concluded  that 
the  8x12  mesh  results  were  acceptable  consdering  the  CPU  consumption  was  about  70% 
less  than  the  1 1  x  16  mesh.  The  finite  element  model  is  given  in  Figure  6.38.  The  values 
for  Cyii,  0^22-  ^2>  AS4-3501  graphite  expoxy  were  determined  from  the 

experimental  stress-strain  curves  shown  in  Figures  6.39-6.41. 


Figure  6.38  Clamped-Free  Graphite  Epoxy  Shell  with  Transverse  Point  Load 


Transverse  load  values  versus  displacements  were  computed  for  a  ply  lay-up  of  [0/-45/ 
45/90]5,  using  the  modified  Donnell  (CDON),  fully-nonlinear  HTSD  (C200),  fully-non- 
linear  HTSD  with  material  transformation  (C201),  and  the  fully-nonlinear  HTSD  with 
large  strain  (C211)  theories.  The  cubic-nonlinear  HTSD  elemental  codes  predicted  identi¬ 
cal  results,  comparable  to  those  of  Tsai.  Figure  6.42  shows  the  equilibrium  values  of 
transverse  load  for  the  CDON,  C200,  C201,  and  C21 1  theories.  The  elastic -plastic,  cubic- 
nonlinear  HTSD  theory  predicted  a  significantly  more  flexible  structure  with  a  marked 
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difference  in  the  snapping  and  snap-through  behavior  as  compared  to  the  cubic-nonlinear 
HTSD  theories.  As  w  increased,  the  fully-nonlinear  codes  predicted  an  increasingly  more 
flexible  structure  for  snapping  and  until  snap-through  is  achieved.  In  these  portions  of 
equilibrium,  the  shell  is  primarily  in  bending  due  to  the  clamped  boundary  conditions. 
Once  snap-through  is  achived,  the  shell  then  returns  to  a  membrane-dominated  behavior 
and  acts  under  tension. 

The  elastic-plastic,  cubic-nonlinear  HTSD  theory  and  both  the  elastic  cubic-nonlinear 
HTSD  theories  predicted  snapping  occurs  at  approximately  w  =  1.27-cm.  Palazotto  et.al. 
[161,  225,  226]  used  the  cubic-nonlinear  HTSD  theory  developed  by  Dennis  [48].  Their 
results  showed  snapping  for  many  variations  of  material  and  geometric  parameters 
[161:703-705],  The  ratio  of  thickness  to  characteristic  length  of  this  problem  is  even 
smaller  than  any  of  the  problems  analyzed  earlier.  This  ratio  is  equal  to  1/300.  Therefore, 
transverse  shear  is  expected  to  be  totally  insignificant.  The  effect  of  allowing  the  in-plane 
e,’s  amd  a,’s  to  behave  nonlinearly  was  expected  to  dramatically  alter  the  global  displace¬ 
ment  response  of  the  shell.  This  is  signficant  when  considering  the  effect  of  large  rota¬ 
tions.  For  the  ply  lay-up  of  [0/-45/45/90]5,  ¥2  reaches  a  maximum  of  0.57  radians 

(32.66°)  and  53%  of  the  shell  surface  saw  rotations  of  0.26  radians  (14.9°) .  The  problem 
is  further  compounded  by  the  predominance  of  a  relatively  weak  material  in  the  circum¬ 
ferential  direction,  compared  to  the  lateral  direction.  The  quasi-isotropic  shell  with  the  [0/ 
-45/45/90)5  ply  lay-up  has  a  ratio  of  E1IE2  =  15  and  a  transverse  shear  modulus  less  than 
E2.  The  primary  cause  of  deformation  for  this  problem  is  bending  activity.  The  outer 
plies  of  this  laminated  panel  are  the  only  plies  oriented  in  the  transverse  direction.  This 
imples  that  75%  of  the  material  of  this  shell  has  a  stiffness  in  the  circumferential  direction 
that  is  significantly  less  than  the  outer  plies.  This  panel  is  only  0.102-cm  thick,  thus,  the 
outer  plies  may  not  be  very  effective  in  resisting  bending,  since  they  are  so  close  to  the 
mid-surface  of  the  shell.  With  the  lateral  supports  of  this  shell  clamped,  the  final 
deformed  shape  of  the  shell  exhibits  both  positive  and  negative  curvatures.  Thus,  severity 
of  bending  is  characterized  by  the  distance  between  counterflexure  points  of  the  final 
deformed  shape  (see  Figures  5.16  and  5.17).  For  this  shell,  this  is  a  distance  of  about  5.08- 
cm.  The  bending  activity  of  the  clamped  composite  shell  is  more  severe  than  that  of  the 
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Figure  6.39  Experimental  ctn  -  Eji  Curves  for  Graphite  Epoxy 
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Figure  6.40  Experimental  G22 "  ^22  Curves  for  Graphite  Epoxy 


Table  6.7  Predicted  Transverese  Equilibrium  Load  (AO  for  Prescribed  Displacement  (cm) 
of  a  0.102-cm  Clamped-Free  Quasi-Isotropic  Cylindrical  Shell  Panel,  [0/-45/45/90]s 


Disp 

CDON* 

C200 

C201 

C211 

0.4763 

116.37 

87.09 

86.52 

76.01 

0.9525 

239.42 

172.52 

173.22 

100.22 

1.4288 

225.67 

196.08 

252.44 

121.40 

1.9050 

205.37 

183.51 

175.79 

119.97 

2.3813 

181.66 

169.09 

151.81 

101.11 

2.8575 

154.20 

147.11 

131.53 

67.82 

3.3338 

125.50 

118.71 

104.57 

34.71 

3.8100 

98.35 

85.84 

75.22 

9.43 

4.2863 

75.60 

50.10 

45.43 

-16.20 

4.7625 

62.79 

13.00 

16.48 

-41.83 

5.2388 

67.55 

-5.69 

-10.78 

-65.51 

5.7150 

110.81 

-43.12 

-34.80 

-87.15 

6.1913 

N/A 

-101.69 

-51.25 

-111.43 

6.6675 

N/A 

-150.61 

-47.60 

-126.74 

7.1438 

N/A 

-16.86 

14.92 

-139.02 

7.6200 

N/A 

77.39 

109.32 

-139.56 

8.0963 

N/A 

N/A 

N/A 

-121.75 

8.5723 

N/A 

N/A 

N/A 

-88.64 

8.8108 

N/A 

N/A 

N/A 

-66.40 

^Computed  using  Dennis’  [57]  modified  Donnell  theory  code. 


hinged  isotropic  shell. 

The  inclusion  of  nonlinear  material  behavior  for  the  in-plane  coordinates  is  signficant 
due  to  the  relatively  low  yield  stress  for  Gj2  (see  Figure  6.41).  The  magnitude  of  the  cyi2Y 
is  2.53%  the  magnitude  of  any-  Again,  the  nonlinear  shear  stiffness  material  properties 
have  a  signficant  effect  on  the  shell’s  response  when  plasticity  is  included  in  the  analysis. 
By  allowing  the  material  to  behave  nonlinearly,  the  reduction  to  bending  stiffness  is 
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enhanced,  thereby  altering  the  global  equilibrium  curve  of  the  shell’s  displacement 
response  toward  a  more  flexible  shell.  The  softening  or  reduction  in  the  predicted  equilib¬ 
rium  load  for  a  prescribed  transverse  displacement  is  observed  in  Figure  6.42.  The  C211 
theory  presents  a  dramatic  change  to  the  shell’s  response  when  compared  to  C200  and 
C201  results.  In  addition,  this  softening  or  load  reduction  effect  of  nonlinear  material 
behavior  smears  out  the  bending  and  tensile  loadings  within  the  shell  and  thereby  smooths 
out  the  transition  from  snap-through  (unloading)  to  the  recovery  (reloading)  phase.  Thus, 
as  with  the  C201  theory,  there  is  no  sharp  transition  in  the  equilibrium  path  when  the  shell 
enters  into  a  fully  tensile  load  as  was  observed  for  the  C200  results.  The  inclusion  of  the 
nonlinear  material  resulted  in  a  reduction  of  the  collapse  load  by  48.7%  and  an  increase  in 
the  corresponding  collapse  displacement  of  42.9%  as  compared  to  the  C200  code’s  results. 

Figures  6.43-6.45  show  the  evolution  of  plastic  zones  in  the  cylindrical  shell  on  the 
upper  surfaces.  At  w  =  1.43-cm,  plasticity  is  occuring  at  the  point  of  load  application  and 
due  to  the  presence  of  the  clamped  boundary  conditions.  Due  to  the  latter  effect,  when 
observing  the  load-displacement  curve  in  Figure  6.42,  the  decrease  in  load  occurs  due  to 
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Figure  6.43  Evolution  of  Plastic  Zones  in  [0/-45/45/90]j,  Clamped-Free,  Cylindrical  Shell 

with  a  Transverse  Load,  w  =  1 .43  cm 
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Figure  6.44  Evolution  of  Plastic  Zones  in  [07-45/45/90]^,  Clamped-Free,  Cylindrical  Shell 

with  a  Transverse  Load,  w  =  2.858  cm 
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Figure  6.45  Evolution  of  Plastic  Zones  in  [0/-45/45/90]  j,  Clamped-Free,  Cylindrical  Shell 

with  a  Transverse  Load,  w  =  5.715  cm 


the  relaxing  of  the  shell’s  stiffness  at  the  boundary.  As  displacement  increases,  so  too  does 
the  regions  of  plasticity  occuring  at  the  upper  surface.  It  is  interesting  to  note  the  plasticity 

is  orienting  along  the  0°  fibers.  The  plasticity  zone  occuring  between  the  load  application 
point  and  the  boundary  (Figures  6.44-6.45)  is  in  response  to  the  change  in  the  shell’s  cur¬ 
vature  (slope).  When  the  transverse  displacement  reaches  the  onset  of  snap-through,  w  = 
1.429-cm,  approximately  20%  of  the  shell’s  outer  surface  is  exhibiting  strains  greater  than 
1.725%  (Figure  6.44).  Again  due  to  the  plasticity  relaxing  the  shell’s  stiffness,  the  load- 
displacement  curve  in  Figure  6.42  shows  a  reduction  in  load,  and  increase  in  displacement 
during  the  snap-through  (bending)  and  recovery  (membrane)  phases.  For  a  nonlinear,  dis¬ 
placement-control  solution,  with  a  prescribed  tolerance,  V  =  0.001,  along  with  40  pre¬ 
scribed  transverse  displacement  increments  of  0.2832-cm,  the  C211  theory  required 
173952.5  CPU  seconds  as  compared  the  C201  theory  requiring  70356  CPU  seconds.  The 
increase  in  CPU  time  is  attributed  to  the  significant  requirement  of  resolving  the  stress 
field  through-the-thickness  for  each  layer  after  plasticity  occured.  The  number  of  itera¬ 
tions  required  for  convergence  on  an  increment  of  displacement  rose  to  as  high  as  140  for 
the  C211  theory.  The  C201  theory  usually  required  less  than  25  iterations  to  reach  conver¬ 
gence  for  an  increment  of  displacement. 


6.7  Clamped-Free,  Quasi-Isotropic,  Cylindrical  Shell  Panel  Under  Axial  Loading  (Buck¬ 
ling) 

From  Section  5.5,  the  results  of  the  cubic-nonlinear  HTSD  theory,  including  the  trans¬ 
formation  of  constitutive  relations  (C201),  predicted  only  a  slightly  more  flexible  shell 
than  the  standard  elastic  cubic-nonlinear  HTSD  theory.  Due  to  the  relatively  small  magni¬ 
tudes  of  transverse  displacement,  and  the  small  rotations,  the  C201  theory  provided  only  a 
small  improvement  for  the  elastic  analysis.  Clearly,  when  comparing  the  analytical  results 
with  the  experimental  results,  there  is  other  phenomena  occurring.  The  inclusion  of  non¬ 
linear  material  response  should  provide  a  more  flexible  shell  model.  The  shell  configura¬ 
tion  is  shown  in  Figure  6.46.  The  shells  were  modelled  with  a  24  x  24  mesh  (first 
developed  by  the  author  for  his  master’s  thesis  [199])  with  the  appropiate  elements 
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removed  for  the  model  of  the  shell  with  a  cutout  (Figure  6.47).  This  mesh  provided  the 
greatest  accuracy  of  predicting  load  for  the  minimum  amount  of  CPU  time  required. 
Greater  accuracy  could  be  achievd  with  a  finer  mesh,  but  the  cost  of  computational  time 
becomes  exponential  due  to  the  exceedingly  large  arrays  required  to  track  stiffness  and 
stress  coefficients  for  the  element’s  Gauss  points.  The  geometry  and  material  properties 
for  this  problem  are  listed  below.  The  nonlinear  material  properties  were  taken  from  Sec¬ 
tion  6.6  since  the  laminate  material  properties  were  identical. 

=  0.0  cm  u  =  v  =  w  =  w^  =  W2  =  '^]  =Vj/2  =  0  {clamped) 

=  27.94  cm  v  =  w  =  Wj  =  W2  =  vi/|=tl/2  =  0  {clamped,  u  free) 

S2  =  0.0  cm,  30.48  cm  {free) 

A  =  27.94  cm  B  =  30.48  cm  h  =  0.102  cm 

R  =  30.48  cm  9  =  1.0  radians 

Material  AS4-3501  Graphite  Epoxy 

£,  =  14. 1 14  X  10^°  Pa  E2  =  9.246  X  10^  Pa 

9  10 

G,2  =  G,3  =  5.958  X  10  Pa  G23  =  2.966  x  10  Pa 

Vj2  =  0.313  Oj,  :=  1.553  X  10^  Pa 

Oy  =  4.548  X  10^  Pa  (5y  =  3.932  x  10^  Pa 
^22  ^12 

k,  =  0.0  1/Pa  ^2  =  '^•'753  X  10-23  i/pa, 

=  1.606  xl0-‘8  l/Pa  n  =  3.060 

Ply  Lay-ups  [0/-45/45/90]^ 

Table  6.8  shows  the  results  for  the  total  applied  compression  load  versus  prescribed 
axial  displacement  u  computed  with  C200,  C201,  and  C211  theories  for  the  quasi-isotro¬ 
pic  shell  panel  without  a  cutout.  The  inclusion  of  material  nonlinearity  in  the  cubic-non¬ 
linear  HTSD  theory  (C211)  yields  a  more  flexible  shell  response  than  the  cubic-nonlinear 
HTSD  (C20X)  and  the  modified  Donnell  (ClOX)  theories.  Figure  6.48  shows  the  pre¬ 
dicted  total  equilibrium  axial  load  versus  axial  displacment  u  for  the  C200,  C201,  and 
C211  theories  and  compared  against  experimental  results  from  Hatfield  [77].  Although 
there  is  a  better  approximation  of  the  experimental  results,  the  C211  theory  predicts  a 
stiffer  shell  by  24.1%  for  buckling  load  and  by  12.5%  for  the  displacement  at  buckling. 
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The  development  of  plasticity,  as  predicted  by  the  cubic-nonlinear  HTSD  theory 
(C21 1),  is  shown  in  Figures  6.49-6.5 1  for  the  outer  convex  surface  of  the  composite  cylin¬ 
drical  shell  without  a  cutout.  As  expected,  plasticity  develops  along  the  free  edges,  and 
along  the  clamped  boundary  conditions,  and  moves  toward  the  center.  This  plasticity 
development  follows  the  buckling  mode  that  occured  for  the  shell  along  the  longitudinal 
center  in  the  circumferential  direction  [77, 199].  Due  to  the  compressive  loading  with  the 
coupling  of  bending  and  membrane  activity  in  the  shell  surface,  the  plasticity  develops  in 
the  circumferential  direction  as  the  displacement  increases  and  the  shell  displaces  toward 
the  convex  surface.  This  dominates  the  shell’s  response  over  the  clamped  boundary  con¬ 
ditions.  Note;  the  comers  at  the  upper  and  lower  surfaces  do  not  exhibit  constant  plastic¬ 
ity  in  the  circumferential  direction.  This  is  due  to  the  intersection  of  the  free  vertical  edges 
with  the  clamped  circumferential  edges  which  reduces  the  effective  stress  function  for 
those  particular  Gauss  points  below  the  anisotropic  yield  criteria  in  Eq  (4.23).  This  shell’s 
response  (in  terms  of  plasticity)  is  different  when  comparing  to  the  previous  transversely 
loaded  composite  cylinder.  For  the  transverse  load,  the  matrix  is  carrying  the  majority  of 
the  load  with  the  fibers  distributing  the  load  away  from  the  point  of  application.  Thus,  the 
plastic  strain  orients  itself  with  the  fibers.  For  this  cylindrical  shell,  the  fibers  are  carrying 
the  load  directly  with  the  matrix  distributing  the  energy  away  from  the  fibers.  The  plastic 
strain  was  oriented  to  the  geometry  and  deformation  of  the  shell,  and  not  the  material  ori¬ 
entation.  When  the  shell  collapsed,  at  «  =  0.356-cm,  the  majority  of  the  circumferential 

direction  along  the  center  of  the  shell  was  behaving  in  a  nonlinear  manner  (Figure  6.51). 
The  inclusion  of  the  material  nonlinearity  resulted  in  a  16.1%  reduction  in  collapse  load 
and  a  28.6%  increase  axial  displacement  before  collapse  when  comparing  the  results  of 
the  C211  theory  with  the  C201  theory.  This  clearly  indicates  the  C211  theory  is  modelling 
as  a  more  flexible  shell,  and  is  responding  similarly  to  the  experimental  results  obtained 
by  Hatfield. 

Table  6.9  shows  the  results  for  the  total  applied  compression  load  versus  prescribed 
axial  displacement  u  computed  with  C200,  C201,  and  C211  theories  for  the  quasi-isotro¬ 
pic  shell  panel  with  a  cutout.  The  inclusion  of  material  nonlinearity  in  the  cubic-nonlinear 
HTSD  theory  (C21 1)  yields  a  more  flexible  shell  response  than  the  cubic-nonlinear  HTSD 
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(C20X)  and  the  modified  Donnell  (ClOX)  theories.  Figure  6.52  shows  the  predicted  total 
equilibrium  axial  load  versus  axial  displacment  u  for  the  C200,  C201,  and  C211  theories 
and  compared  against  experimental  results  from  Hatfield  [77].  As  was  in  the  case  of  the 
quasi-isotropic  shell  panel  without  a  cutout,  the  C211  theory  predicts  a  stiffer  shell  when 
compared  to  Hatfield’s  experimental  results.  The  buckling  load  is  12.4%  higher  than  the 
experimental  results  and  the  displacement  at  buckling  is  33.3%  less. 

The  development  of  plasticity,  as  predicted  by  the  cubic-nonlinear  HTSD  theory 
(C211),  is  shown  in  Figures  6.53-6.55  for  the  convex  surface  of  the  composite  cylindrical 
shell  with  a  cutout.  The  plastic  strain  develops  along  the  free  edges  and  the  cutout  for  this 
axially  loaded  shell,  and  at  the  clamped  boundary  conditions.  As  the  displacement 
increases,  the  plastic  zones  move  toward  the  center  of  each  shell  section  around  the  cutout. 
There  are  stress  concentrations  occurring  at  the  discontinuous  points  of  the  cutout’s  cor¬ 
ners,  but  from  the  two-dimensional  anisotropic  yield  criteria  these  stresses  are  dominated 
by  the  bending  stresses  generated  through  the  coupling  of  the  shell’s  membrane  response 
with  the  compressive  loading  along  the  free  edges  of  the  shell  and  the  cutout.  When  the 
shell  collapsed,  at  w  =  0.457-cm,  the  majority  of  the  circumferential  direction  along  the 
center  of  the  shell  was  behaving  in  a  nonlinear  manner  (see  Figure  6.55).  Approximately 
18%  of  the  shell’s  surface  exhibited  strains  greater  than  1.725%.  The  inclusion  of  the 
material  nonlinearity  resulted  in  a  16.1%  reduction  in  collapse  load  and  a  28.6%  increase 
axial  displacement  before  collapse  when  comparing  the  results  of  the  C21 1  theory  with  the 
C201  theory.  This  clearly  indicates  the  C211  theory  is  modelling  as  a  more  flexible  shell, 
and  is  responding  similarly  to  the  experimental  results  obtained  by  Hatfield. 

Comparing  the  C211  analytical  results  with  Hatfield’s  experimental  results  for  both 
the  composite  cylinder  without,  and  with,  a  cutout  yielded  an  interesting  question.  If  the 
seating  problems  in  the  test  fixture  have  been  addressed  [799]  and  if  anisotropic  plasticity 
is  included  in  the  analysis,  why  is  there  a  signficant  difference  between  the  analysis  and 
the  experiment?  There  are  several  possible  solutions  to  this.  The  first  being  an  obvious 
one,  that  is  the  cylindrical  panel  is  not  truly  clamped  within  the  test  fixture.  This  is 
unlikely  since  1.27  cms  of  the  panel  at  either  longitudinal  end  are  held  within  the  text  fix¬ 
ture’s  clamp  (see  [222]  for  greater  details  on  the  experimental  test  fixture  and  test  proce- 


6-47 


Clamped 

Figure  6.47  24  x  24  Element  Meshes  for  Axially  Loaded,  Composite,  Cylindrical  Shell 


Table  6.8  Predicted  Total  Compression  Load  (10^  N)  for  Prescribed  Axial  Displacement 
(cm)  for  a  Clamped-Free  30.48-cm  x  30.48-cm  Quasi-Isotropic  Cylindrical  Shell  Panel  - 

Experimental  and  C2XX  Theories 


Axial  Disp 

Hatfield* 

C200 

C201 

C211 

0.00508 

1.701 

2.984 

2.984 

2.984 

0.01016 

3.522 

5.968 

5.975 

5.195 

0.01524 

4.544 

8.916 

8.805 

7.399 

0.02032 

5.983 

11.128 

11.472 

9.121 

0.02540 

7.029 

15.077 

13.308 

10.655 

0.03048 

8.061 

9.111 

8.821 

11.756 

0.03556 

8.893 

N/A 

N/A 

12.651 

0.03810 

9.362 

N/A 

N/A 

11.948 

0.03937 

9.346 

N/A 

N/A 

N/A 

0.04064 

8.535 

N/A 

N/A 

8.465 

0.04089 

6.759 

N/A 

N/A 

N/A 

_ 

[77] 
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Figure  6.48  Predicted  Compressive  Load  for  Prescribed  Axial  Displacement  for  Compos¬ 
ite  Cylindrical  Shell  Panel  [0/-45/45/90]^  without  Cutout 
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Figure  6.49  Evolution  of  Plastic  Zones  for  Clamped-Free  Composite  Cylindrical  Shell 

Panel  without  Cutout,  w  =  0.00508  cm 
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Figure  6.50  Evolution  of  Plastic  Zones  for  Clamped-Free  Composite  Cylindrical  Shell 

Panel  without  Cutout,  w  =  0.0254  cm 


Clamped,  u  free 


Figure  6.5 1  Evolution  of  Plastic  Zones  for  Clamped-Free  Composite  Cylindrical  Shell 

Panel  without  Cutout,  w  =  0.04572  cm 
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Table  6.9  Predicted  Total  Compression  Load  (10^  N)  for  Prescribed  Axial  Displacement 
(cm)  for  a  Clamped-Free  30.48-c/n  x  30.48-cm  Quasi-Isotropic  Cylindrical  Shell  Panel 
with  Centered  10.16-c/n  Cutout  -  Experimental  and  C2XX  Theories 


Axial  Disp  (in) 

Hatfield* 

C200 

C201 

C211 

0.00254 

0.185 

1.040 

1.040 

0.992 

0.00508 

0.359 

2.121 

2.074 

1.669 

0.00762 

0.579 

3.141 

2.875 

2.111 

0.01016 

0.781 

4.110 

4.066 

2.535 

0.01270 

0.983 

4.759 

4.711 

2.894 

0.01524 

1.153 

5.195 

5.083 

3.203 

0.01778 

1.323 

5.509 

5.437 

3.468 

0.02032 

1.501 

5.836 

5.706 

3.697 

0.02286 

1.674 

6.110 

5.975 

3.952 

0.02500 

1.841 

6.309 

6.153 

4.132 

0.02794 

1.996 

6.335 

6.156 

4.302 

0.03048 

2.181 

6.235 

6.083 

4.474 

0.03302 

2.364 

N/A 

N/A 

4.564 

0.03556 

2.548 

N/A 

N/A 

4.650 

0.03810 

2.728 

N/A 

N/A 

4.760 

0.04064 

2.943 

N/A 

N/A 

4.883 

0.04318 

3.132 

N/A 

N/A 

4.930 

0.04572 

3.322 

N/A 

N/A 

5.007 

0.04826 

3.481 

N/A 

N/A 

4.988 

0.05080 

3.647 

N/A 

N/A 

4.935 

0.06604 

4.349 

N/A 

N/A 

N/A 

0.06858 

4.387 

N/A 

N/A 

N/A 

0.07112 

4.383 

N/A 

N/A 

N/A 

0.07239 

4.352 

N/A 

N/A 

N/A 

*[77] 
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Figure  6.52  Predicted  Compressive  Load  for  Prescribed  Axial  Displacement  for  Compos¬ 
ite  Cylindrical  Shell  Panel  [0/-45/45/90]s  ^  10.16  cm  Cutout 
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Figure  6.53  Evolution  of  Plastic  Zones  for  Clamped-Free  Composite  Cylindrical  Shell 
Panel  [0/-45/45/90]s  with  a  Cutout,  w  =  0.00254  cm 
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Figure  6.54  Evolution  of  Plastic  Zones  for  Clamped-Free  Composite  Cylindrical  Shell 
Panel  [0/-45/45/90]s  with  a  Cutout,  w  =0.0381  cm 


dures).  However,  it  is  concievable  that  in  spite  of  this  precaution,  the  panel  is  moving 
within  this  fixture,  thereby  relaxing  the  boundary  conditions  and  allowing  the  panel  to 
respond  in  a  more  flexible  manner. 

The  second  possibility  is  in  the  fabrication  of  these  panels.  When  these  panels  are  con¬ 
structed,  they  are  laid  out  on  a  mandrel  as  part  of  one  very  large  laminate,  usually  365.76- 
cm  X  365.76-cm.  After  they  are  cured  in  the  autoclave,  individual  panel  are  then  cut  from 
this  large  laminate.  Due  to  the  internal  stresses  generated  in  the  curing  process,  when  the 
panels  are  cut,  these  stresses  are  then  relieved  altering  the  shape  of  the  panel  in  a  subtle 
manner.  The  test  fixture  is  fabricated  for  a  constant  30.48-cm  radius  of  curvature.  This 
dimension  is  fixed  and  cannot  be  altered.  However,  when  the  author  inspected  several  of 
the  composite  panels  used  for  his  Master’s  Thesis  [77],  he  noted  that  the  curvature  of  the 
panels  varied  as  much  as  ±  0.953-c/n  within  the  same  panel.  This  variation  leads  to  a 
built-in  imperfection  due  to  the  fabrication  process  when  these  panels  are  placed  within 
the  fixed  30.48-cm  radius  of  curvature  in  the  test  apparatus.  The  analytical  model  consid¬ 
ers  the  cylindrical  shell  panel  as  perfect  and  the  analysis  proceeds  from  this  assumption. 
According  to  Brush  &  Almroth  [29],  an  imperfection  of  .1%  can  significantly  alter  the 
shell’s  response.  The  author  noted  such  a  response  when  he  incorporated  an  imperfection 
in  his  STAGSC-1  models  [799].  The  imperfection  reduces  the  predicted  buckling  load  by 
as  much  as  40%  depending  on  the  dimensions  of  the  shell,  the  material  type,  and  the  ply 
lay-up.  The  third  alternative  is  a  combination  of  the  first  two.  The  possibility  of  the 
boundary  conditions  being  less  than  clamped  (i.e.  more  flexible)  and  the  imperfections 
generated  due  to  fabrications  would  certainly  lead  to  a  shell  response  that  is  more  flexible 
than  is  being  modelled  currently. 

For  a  nonlinear,  displacement-control  solution,  with  a  prescribed  tolerance,  V  = 
0.0001,  along  with  30  prescribed  axial  displacements  of  0.0127-cm,  the  C211  theory 
required  214578.1  CPU  seconds  as  compared  the  C201  theory  requiring  83001.0  for  the 
cylindrical  panel  without  a  cutout.  The  increase  in  CPU  time  is  attributed  to  the  signifi¬ 
cant  requirement  of  resolving  the  stress  field  through-the-thickness  for  each  layer  after 
plasticity  occured.  The  number  of  iterations  required  for  convergence  on  an  increment  of 
displacement  rose  to  as  high  as  200  for  the  C211  theory.  The  C201  theory  usually 
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required  less  than  80  iterations  to  reach  convergence  for  an  increment  of  displacement 
(0.0254-C7n).  For  the  cylindrical  shell  with  a  cutout,  with  a  prescribed  tolerance  of  V  = 
0.0001,  with  40  prescribed  axial  displacements  of  0.00 127 -cm,  the  C211  theory  required 
147022.2  CPU  seconds  as  compared  the  C201  theory  requiring  77802.9  CPU  seconds. 


6.8  Hinged,  Quasi-Isotropic,  Spherical  Shell  Cap  with  Transverse  Point  Load 

The  final  set  of  problems  considered  spherical  geometry,  quasi-isotropic  material,  and 
the  nonlinear  material  behavior.  These  problems  were  based  on  the  quasi-isotropic  elastic 
sphercal  shell  analysis  discussed  in  Section  5.7.  The  two  ply  lay-ups  considered  were  [0/- 
45/45/90] j  and  [Og].  The  geometric  and  material  properties  are  listed  below.  It  should  be 
noted  the  anisotropic  plasticity  parameters  were  chosen  from  Section  6.6  since  the  mate¬ 
rial  properties  were  identical.  The  shell  configuration  is  shown  in  Figure  6.56.  Due  to 
some  difficulties  with  the  in-plane  stress  field  oscillating  near  the  apex,  where  the  load 
was  applied,  no  symmetry  was  used.  In  addition,  a  convergence  study  was  required  to 
generate  the  proper  refined  mesh  needed  for  a  stable  solution. 

This  convergence  study  needed  to  satisfy  three  requirements:  (1)  an  elastic  solution 
was  achieved,  (2)  an  adequate  stress  field  was  generated  for  the  anisotropic  yield  criteria 
(Eq  (4.22)),  and  (3)  the  displacement  function  was  satisfied.  In  the  previous  cases,  the 
meshes  used  were  of  an  acceptable  nature  due  to  previous  author’s  convergence  studies  [S, 
45, 46, 49-51,  71, 129, 146, 161-163, 207, 225, 226].  However,  in  the  spherical  composite 
shell,  due  to  the  singularity  at  the  apex,  the  mesh  was  refined  to  generate  a  non-oscillating 
stress  field.  A  12  x  12  mesh  was  attempted  but  the  stress  field  near  the  apex  oscillated 
which  did  not  allow  for  convergence.  Results  were  obtained  for  a  refined  18x18  mesh 
where  the  stress  field  remained  stable.  This  is  shown  in  Figure  6.57.  A  heavily  refined 
24  X  24  mesh  was  solved  to  compare  with  the  18x18  mesh  results.  The  equilibrium 
curve  for  the  heavily  refined  mesh  showed  a  3.2%  drop  in  peak  load  for  a  significant 
increase  in  CPU  time  (44.5%).  Thus,  the  18  x  18  mesh  was  deemed  adequate. 

These  shells  are  relatively  shallow  [/29],  but  provide  a  good  exercise  for  the  nonlin- 
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ear  material  portion  of  the  theory  since  they  address  spherical  geometry  and  quasi-isotro¬ 
pic  material. 


.Sj=0  M  =  vvj=\jrj=0  {symmetry) 

^2  =  0  v  =  W2  =  Vj/2  =  0  (symmetry) 

=  ±2.301  cm  a  =  v  =  w  =  \j/2  =  0  (hinged) 

^2  =  ±2.301  cm  M  =  v  =  w  =  \j/j=0  (hinged) 


a  =  b  =  4.60  cm  h  =  0.04  cm 
L  =  4.573  cm  5  =  2.181  cm 


R  =  12.09  cm 
0  =  0.19024  radians 


Material  AS4-3501  Graphite  Epoxy 

=  14.114X  10‘®  Pa  £2  =  9.246  X  10^  Pa 

0  10 

Gi2  =  Gi3  =  5.958  X  10  Pa  =  2.966  x  10  Pa 

V, 2  =  0.313  =  1.553  x  10^  Pa 

ay  =  4.548  X  10^  Pa  Cy  =  3.932  x  10^  Pa 
^22  ^12 

=  0.0  1/Pa  =  7.753  x  10-23  j/p^ 

k^  =  1.606  X  10-18  j/pa  „  =  3.060 
Ply  Lay-ups  [07-45/45/90]^ 

Table  6.10  shows  the  predicted  equilibrium  loads  for  prescribed  transverse  displace¬ 
ment  of  the  apex  of  a  [07-45/45/90].^  ply  lay-up  with  the  S200,  S201,  and  S211  cubic-non- 
linear  HTSD  theories.  As  expected,  the  S211  theory  predicts  the  most  flexible  shell. 

Figure  6.58  shows  the  equilibrium  path  for  the  results  shown  in  Table  6.10.  The  S211 
cubic-nonlinear  HTSD  theory  predicts  a  more  flexible  shell  as  loading  increases  due  to  the 
presence  of  plasticity  around  the  apex  (Figure  6.59)  and  at  the  corners  due  to  the  combined 
hinged  boundary  conditions  on  both  sides  of  the  shell  cap.  As  the  displacement  reaches 

the  peak  load,  around  32%  of  the  convex  shell  surface  is  behaving  plastically  (Figure 
6.60).  Then  as  the  shell  unloads  and  reaches  the  point  of  pure  tension  and  reloading,  a  sig¬ 
nificant  portion  of  the  shell’s  convex  surface  is  exhibiting  plasticity. 
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a  =  b  =  4.60  cm 


hinged 


Figure  6.56  Hinged  Apex-Loaded  Graphite-Epoxy  Spherical  Shell  Cap 


Figures  6.59-6.61  show  the  evolution  of  the  plastic  regions  for  the  convex  surface  of 
the  [0/-45/45/90]j  spherical  shell.  It  should  be  noted  that  the  plasticity  favors  the  0°  ply 
orientation  following  the  discussion  of  Section  6.6.  These  plastic  zones  are  determined  by 
analyzing  the  stress-state  at  each  Gauss  point,  for  each  element,  at  the  convex  surface 
layer,  and  determining  which  of  the  Gauss  points  have  exceeded  the  yield  criterion  men¬ 
tion  in  Section  4.2.2.  Once  a  Gauss  point  exceeds  the  yield  criterion,  the  Prandtl-Reuss 
flow  relations  are  followed  for  the  remainder  of  the  analysis  for  that  particular  Gauss  point 
and  a  plastic  strain  pointer  is  associated  with  the  Gauss  point.  At  the  onset  of  snapping,  w 
=  0.2S6-cm,  approximately  32%  of  the  shell’s  convex  surface  is  exhibiting  strains  greater 
than  2.125%.  When  w  =  0.506-cm,  nearly  45%  of  the  shell’s  convex  surface  is  exhibiting 
strains  greater  than  2.125% 
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Table  6. 1 1  shows  the  predicted  equilibrium  loads  for  prescribed  transverse  displace¬ 
ment  of  the  apex  of  a  [Og]  ply  lay-up  with  the  S200,  S201,  and  S211  cubic-nonlinear 

HTSD  theories.  As  expected,  the  S211  theory  predicts  the  most  flexible  shell.  Figure  6.62 
shows  the  equilibrium  path  for  the  results  shown  in  Table  6.11.  The  S211  theory  predicts 
a  more  flexible  shell  as  loading  increases  due  to  the  presence  of  plasticity  around  the  apex 
(Figure  6.63).  As  unloading  occurs,  the  S211  theory  allows  the  [Og]  shell  to  reduce  load¬ 
ing  more  quickly  than  the  [07-45/45/90]^  shell  due  to  the  lack  of  ±45°  fibers. 


ks^ 


S2 


Figure  6.57  Refined  Mesh  Used  for  Quasi-Isotropic  Hinged  Spherical  Shell  Cap  Models 
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Table  6. 10  Predicted  Equilibrium  Load  (10^  N)  for  Prescribed  Transverse  Displacement 
(cm)  of  Hinged  Quasi-Isotropic  [07-45/45/90]^  Spherical  Shell  Cap 


Disp 

S200 

S201 

S211 

0.0476 

0.552 

0.554 

0.554 

0.0954 

0.885 

0.881 

0.763 

0.1429 

1.106 

1.099 

0.930 

0.1905 

1.263 

1.252 

1.041 

0.2381 

1.362 

1.345 

1.100 

0.2858 

1.377 

1.354 

1.132 

0.3334 

1.268 

1.245 

1.112 

0.3810 

1.027 

1.006 

1.033 

0.4098 

0.917 

0.853 

0.923 

0.4286 

0.872 

0.845 

0.793 

0.4524 

0.916 

0.884 

0.702 

0.5061 

N/A 

N/A 

0.808 

0.5246 

N/A 

N/A 

0.952 

0.5477 

N/A 

N/A 

1.192 
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Figure  6.59  Evolution  of  Plastic  Zones  for  Hinged  [0/-45/45/90]j  Composite  Spherical 

Shell  Panel,  w  =0.1905  cm 
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Figure  6.60  Evolution  of  Plastic  Zones  for  Hinged  [07-45/45/90]^  Composite  Spherical 

Shell  Panel,  w  =0.286  cm 


Figure  6.61  Evolution  of  Plastic  Zones  for  Hinged  [07-45/45/90]^  Composite  Spherical 

Shell  Panel,  w  =  0.506  cm 
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Table  6. 1 1  Predicted  Equilibrium  Load  (10^  N)  for  Prescribed  Transverse  Displacement 
(cm)  of  Hinged  Quasi-Isotropic  [Og]  Spherical  Shell  Cap 


Disp 

S200 

S201 

S201 

0.0476 

0.512 

0.510 

0.510 

0.0954 

0.835 

0.830 

0.713 

0.1429 

1.054 

1.043 

0.841 

0.1905 

1.209 

1.170 

0.921 

0.2381 

1.306 

1.284 

0.970 

0.2858 

1.327 

1.252 

1.010 

0.3334 

1.234 

1.194 

1.005 

0.3810 

0.974 

0.914 

0.935 

0.4098 

0.621 

0.528 

0.672 

0.4286 

0.657 

0.596 

0.468 

0.4763 

0.889 

0.861 

0.346 

0.5001 

N/A 

N/A 

0.405 

0.5239 

N/A 

N/A 

0.506 

0.5477 

N/A 

N/A 

0.759 
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Figure  6.63  Evolution  of  Plastic  Zones  for  Hinged  [Og]  Composite  Spherical  Shell  Panel. 

w  -  0.1905  cm 
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Figure  6.64  Evolution  of  Plastic  Zones  for  Hinged  [Og]  Composite  Spherical  Shell  Panel. 

w  =  0.286  cm 


Figure  6.65  Evolution  of  Plastic  Zones  for  Hinged  [Og]  CompositeSpherical  Shell  Panel. 


For  the  composite  spherical  shell  with  a  ply  lay-up  of  [07-45/45/90]^,  the  S211  theory 
reduces  the  snapping  load  by  17.8%  when  compared  to  the  S200  theory,  and  by  16.5% 
when  compared  to  the  S201  theory.  For  the  composite  shell  with  a  ply  lay-up  of  [Og],  the 
S211  theory  reduces  the  snapping  load  by  23.9%  when  compared  to  the  S200  theory,  and 
by  19.4%  when  compared  to  the  S201  theory.  Although  these  composite  spherical  shells 
are  relatively  shallow  (6/6  =  6/(/L2)  =  0.954),  they  provide  an  excellent  comparison  for  the 
various  theories  developed  for  this  research.  Due  to  their  relative  shallowness,  rotations 
are  expected  to  remain  small.  Thus,  the  S201  theory  should  have  a  relatively  small  impact 
on  the  global  displacement  of  the  shell  -  a  reduction  of  the  snapping  load  of  only  1.56% 
for  the  [07-45/45/90]^  ply  lay-up  and  a  reduction  of  5.64%  for  the  [Og]  ply  lay-up.  How¬ 
ever,  since  the  prescribed  displacement  is  relatively  large  when  compared  to  the  shell 
thickness  {wlh  =  12.843),  it  is  probable  that  the  inclusion  of  nonlinear  material  behavior 
would  have  a  significant  effect  to  the  global  displacement  of  the  shell. 

For  a  nonlinear,  displacement-control  solution,  with  a  prescribed  tolerance,  V  = 
0.001,  with  28  prescribed  transverse  displacements  of  0.0127-cm,  the  S211  theory 
required  104008.2  CPU  seconds  as  compared  the  S201  theory  requiring  44231.4  CPU  sec¬ 
onds  for  the  [0/-45/45/90]j  spherical  shell.  The  increase  in  CPU  time  is  attributed  to  the 
significant  requirement  of  resolving  the  stress  field  through-the-thickness  for  each  layer 
after  plasticity  occured.  The  number  of  iterations  required  for  convergence  on  an  incre¬ 
ment  of  displacement  rose  to  as  high  as  80  for  the  S211  theory.  The  S201  theory  usually 
required  less  than  15  iterations  to  reach  convergence  for  an  increment  of  displacement. 
For  the  [Og]  spherical  shell,  with  a  prescribed  tolerance  of  V  =  0.001,  with  28  prescribed 
transverse  displacements  of  0.0127-c/n,  the  S211  theory  required  103642.2  CPU  seconds 
as  compared  the  S201  theory  requiring  44231.2  CPU  seconds  for  a  solution. 

It  has  been  shown  that  for  both  isotropic  and  quasi-isotropic  plates  and  shells,  the  addi¬ 
tion  of  a  nonlinear  material  model  significantly  alters  the  the  global  equilibrium  load-dis¬ 
placement  curve.  For  the  cases  where  experimental  data  was  available,  the  G211  elastic- 
plastic,  cubic-nonlinear  HTSD  theory  predicted  a  plate  or  shell  response  more  accurately 
than  the  G20X  cubic-nonlinear  HTSD  theories.  In  all  the  problems  discussed,  the  G211 
theory  accurately  predicts  the  development  of  plastic  behavior.  That  is,  plasticity  occurs 
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at  the  outer  surfaces  first,  and  depending  on  geometry  and  material  properties,  plasticity 
eventually  occurs  at  the  mid-surface.  Although  these  regions  of  plasticity  were  never 
quantitatively  compared  with  experimental  results  or  any  results  published  in  the  literature 
(primarily  due  to  a  lack  of  data),  the  author  believes  from  a  qualitative  view  these  regions 
provide  some  useful  insight  into  the  plate  or  shell’s  response  to  the  increased  displacement 
and  resultant  loading. 

These  regions  of  plasticity  are  useful  in  predicting  possible  mesh  refinement,  if  neces¬ 
sary,  and  to  demonstrate  the  through-the-thickness  plasticity  development  by  the  theory. 
When  a  plate  or  shell  exhibits  strains  greater  than  2.125%  over  15-20%  of  the  outer  sur¬ 
face,  along  with  values  of  V|r,'  >  12.5-15°  and  displacements  greater  than  five  times  the 
thickness,  the  nonlinear  material  analysis  should  be  incorporated  to  accurately  predict  the 
global  equilibrium  curve.  For  composite  materials  exhibiting  a  strong  dependence  on 
shear  stiffness,  G12,  material  properties,  the  elasto-plastic  analysis  is  required.  In  the  case 
of  the  Gr/PEEK,  ai2y  was  2.43%  the  magnitude  of  any  For  Gr/Ep,  C]2y  was  2.54%  the 
magnitude  of  a^y 

There  is  a  significant  computational  cost  associated  with  using  the  elastic -plastic, 
cubic-nonlinear  HTSD  theory.  Due  to  the  requirement  of  tracking  the  stress-state  at  each 
Gauss  point,  for  every  layer,  in  every  element,  the  arrays  developed  to  track  this  crucial 
information  were  very  large.  In  every  problem  discussed  in  Chapter  6,  the  elastic -plastic 
theory  code  took  at  least  200-300%  longer  to  run,  and  required  4-6  times  the  computer 
memory  previously  needed  to  track  and  calculate  the  Gauss  point  stress-state  and  plastic¬ 
ity  strain  arrays.  By  running  this  code  on  a  SUN  SPARC2  work-station,  the  average  time 
for  completion  of  the  smaller  problems  was  on  the  order  of  2-3  days  and  for  the  larger 
problems  (quasi-isotropic  cylindrical  shells,  isotropic  pinched  cylinder)  the  average  time 
for  completion  was  on  the  order  of  5-8  days. 
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7.  Summary  and  Conclusions 


The  goal  of  the  research  was  to  develop  a  total  Lagrangian  finite  element  formulation 
with  a  quasi-nonlinear  higher-order  transverse  shear  deformation  (HTSD)  theory  includ¬ 
ing  transformations  of  the  constitutive  relations  from  the  Cauchy  stress-strain  system  2nd 
Piola  stress-Green  strain  system  and  allowing  the  constitutive  relations  to  become  elastic- 
plastic  with  work  hardening.  This  formulation  was  then  used  in  computing  solutions  for 
isotropic  and  quasi-isotropic  plates,  cylindrical  and  spherical  shells  that  allows  for  large 
displacements,  moderate  rotations  and  large  strains.  The  main  contributions  from  this 
research  is:  (1)  a  total  Lagrangian  finite  element  formulation  with  large  displacements, 
moderate  rotations,  and  large  strains  due  to  the  inclusion  of  transforming  the  constitutive 
relations  from  Eulerian  coordinates  to  Lagrangian  coordinates,  and  (2)  an  incremental 
elastic -plastic  predictor  algorithm  for  a  total  Lagrangian  finite  element  formulation, 
including  composite  material  ply  lay-ups.  Based  on  the  development  from  Washizu 
(1982),  a  displacement-based  transformation  matrix  was  developed  for  both  the  stress- 
states  and  strain-states.  Using  incremental  Prandtl-Reuss  flow  theory  relations,  an  elastic- 
plastic  constitutive  matrix  is  developed  for  isotropic  materials  based  on  a  von  Mises  yield 
criteria.  For  laminated  composite  materials,  the  elastic-plastic  constitutive  matrix  is  devel¬ 
oped  using  a  modified  von  Mises  criteria  with  anisotropic  interaction  parameters  to 
account  for  material  anisotropy.  Work  hardening  for  both  materials  was  accomplished  by 
computing  the  incremental  effective  stress  versus  the  incremental  effective  plastic  strain  at 
each  increment  of  displacement  based  on  the  previously  known  stress  state. 


7.1  Theory 

A  summary  of  the  theory  developed  for  this  research  follows.  Complete  details  are 
included  in  Chapters  3  and  4  of  the  dissertation.  The  basic  assumptions  of  a  two-dimen¬ 
sional  (2D)  shell  theory  are  tied  to  the  concepts  of  a  reference  surface  (the  midsurface  of 
the  shell)  and  a  local  curvilinear  coordinate  system  of  principal  curvature,  which  by  defin- 
tion  are  orthogonal,  then  the  coordinate  system  is  also  orthogonal.  For  this  research,  the 
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theoretical  development  was  restricted  to  orthogonal  coordinate  systems  based  on  lines  of 
constant  curvature. 

If  one  uses  a  Lagrangian  description  of  deformation,  all  variables  are  expressed  in 
terms  of  area  and  volume  conditions  prior  to  deformation.  In  this  system,  the  displacement 

vector  can  be  written  in  terms  of  orthonormal  base  vector,  e. ,  {i  =  1-3).  For  the  shell,  the 

Lame'  parameters  A^,  (a  =  1,2),  describe  the  two-dimensional  relationship  between  the 

— ^ 

orthogonal  surface  base  vectors,  ,  and  their  orthonormal  counterparts,  e- .  The  shell 
shape  factors,  hi,  {i  =  1-3),  describe  the  t/iree-dimensional  relationship  between  the 

orthogonal  base  vectors  g-  of  the  three-dimensional  orthogonal  curvilinear  coordinate  sys- 

tern,  y . ,  and  their  orthonormal  counterparts  e. .  For  an  orthogonal  curvilinear  coordinate 
system  based  upon  the  lines  of  principal  curvature  of  a  shell,  the  shape  factors  are 

h^=A^{\-y^/R^),h2=A2(l-y^/R2)>h^^=^  .  (3-40) 

where 


301  ■  39,)  J’ 


(3.41) 


Thus,  for  the  case  of  a  spherical  shell  with  radius  /?]  =  /?2  =  ^  and  local  coordinates  Gj 


=  ^1,  02  =  S2,  z  described  in  an  orthogonal  space  with  global  coordinates  yi  =  y2  =  ^2^  >3 


=  z,  the  position  vector  r  (yi,y2>3'3)  is  given  by 


^  ^  ^ 

r  =  s ^6^  +  82^2  +  ^2)^2,  ’  (3-42) 

and  the  Lame  parameters  reduce  to  Aj  =  A2  =  1. 

For  this  research,  the  macro-mechanical  behavior  of  a  composite  lamina  was  assumed 
sufficient  provided  stresses  were  small  enough  to  assure  no  material  failure  occurs.  Thus, 
the  material  of  each  lamina  was  treated  as  a  homogenous  anisotropic  material.  More  spe¬ 
cifically,  the  material  was  assumed  to  be  transversely  isotropic.  This  means  the  material 
has  properties  which  are  symmetric  about  two  material  axes.  In  this  research  the  effects  of 
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transverse  shear  deformation  are  considered.  Thus,  04  and  05  are  not  assumed  to  be  zero. 
The  direct  normal  stress,  03,  however  was  still  assumed  to  be  zero.  This  assumption  was 
necessary  to  reduce  the  three-dimensional  problem  to  a  two-dimensional  problem.  The 
direct  transverse  normal  strain  was  assumed  to  be  given  by: 


C  C 

^13  ^23 

^33  ~  ~C  C  ^22  ’ 

C33  C33 

where  the  Cy  were  functions  of  material  properties  and  ply  lay-up. 


(3.58) 


To  form  a  structural  component,  the  lamina  are  assumed  to  be  perfectly  bonded 
together  with  their  fibers  oriented  at  a  particular  angle  with  respect  to  the  structure's  refer¬ 
ence  axis.  The  stiffness  contribution  of  each  lamina  in  the  laminate  is  transformed  to  a 
common  reference  system  of  axes.  Eq  (3.58)  relates  the  direct  normal  strain  £3  to  changes 
in  the  direct  in-plane  strains  and  £2  for  the  case  where  03  is  equal  to  zero.  The  assump¬ 


tion  that  Eq  (3.58)  is  valid  for  an  arbitrary  laminated  composite  shell  is  important.  Without 
this  assumption,  the  stress  state  would  be  fully  three-dimensional  and  the  two-dimensional 
model's  reduced  computational  effort  would  be  lost.  With  this  assumption,  however,  the 
two-dimensional  model  will  not  accurately  predict  the  stress  distribution  within  the  shell, 
since  03  generally  is  not  zero  in  the  real  structure  and  £3  may  vary  considerably  from  that 

predicted  by  Eq  (3.58).  Research  in  the  1960's  and  1970's  by  many  investigator  has  vali¬ 
dated  this  assumption. 

There  are  many  ways  to  include  transverse  shear  deformation.  Transverse  shear  effects 
can  be  included  using  a  first-order  transverse  shear  deformation  (FTSD)  theory.  In  this 
case,  material  lines  originally  normal  to  the  midsurface  are  allowed  to  deviate  from  the 
normal  to  the  shell  mid-surface.  These  lines  remain  straight  and  inextensible.  Since  the 
angle  of  deviation  is  constant,  the  displacement  field  varies  linearly  through  the  thickness 
of  the  shell.  The  constant  angle  also  implies  transverse  shear  strain  is  constant,  and  is  not 
zero  at  the  upper  and  lower  surfaces  of  the  shell.  This  inconsistent  distribution  results  in  a 
stiff  model  of  the  structure.  This  stiffening  effect,  called  shear  locking, becomes  more  pro¬ 
nounced  as  the  shell  thickness  approaches  zero.  The  higher-order  transverse  shear  defor¬ 
mation  (HTSD)  theory  allows  the  normal  to  rotate  and  warp.  The  HSTD  theory  for  a  flat 
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plate  produces  a  parabolic  distribution  of  shear  strain.  This  distribution  matches  the  exact 
distribution  of  shear  strain  for  the  linear  infinitesimal  case. 

For  a  shell,  the  FTSD  theory  is  given  by  the  following  displacement  field 


Ml  =  M 


Mn  =  V 


V  hj 

(  y^'\ 

V  ^1) 


+ 


+ 


¥1^3 


(3.64) 


M 


3 


=  w 


where  the  five  degrees  of  freedom  u,  v,  w,  Vj/j,  and  V|/2,  are  functions  of  the  in-plane  curvi¬ 
linear  coordinates  (y^,  y2)-  The  displacement  field  of  a  third-order  linear  transverse  shear 
deformation  theory  is  given  by  the  following  equation 


f 


u,  =  u 


=  V 


1-^ 

V 

V  «2y 


3h 


f 


^  3 


A  (dw  'i  3 
3^2(93,2 +  'i'2jy3 


(3.72) 


=  w 


The  third-order  displacement  field  has  two  additional  degrees  of  freedom  not  present 
in  the  first-order  theory.  These  two  degrees  of  freedom  are  the  derivatives  of  transverse 
displacement,  w.  These  derivatives  are  independent  degrees  of  freedom  that  represent  the 
slope  of  the  elastic  curve.  The  third-order  theory  allows  the  slope  of  the  elastic  curve  to 
deviate  from  the  bending  angles.  This  deviation  is  directly  related  to  the  transverse  shear 
strains  of  the  structure. 

Dennis  (1988)  used  a  version  of  Eq  (3.72)  to  analyze  linear  and  nonlinear  plates  and 
cylindrical  shells  with  elastic  isotropic  and  quasi-isotropic  materials.  His  third-order  dis¬ 
placement  field  takes  the  form  of 


7-4 


(7.1) 


=  u  + 


4-  f  dw 


3h 


Ady^ 


+  ¥i 


>^3 


U2  =  ^ 


1  -  — 
V 


4  f  3w 


3/,2Uy/ '*'2/3 


M3  =  w 


Three  extensions  of  his  development  are  the  nucleus  of  this  research  effort.  The  first 
extension  is  generating  the  strain-displacement  relations  based  on  Eq  (3.72)  instead  of  Eq 
(3.40).  These  strain-displacement  relations  are  given  by: 


“1,1  “2^1,2  “3^1,3  1 


^1  ~  h. 


+ 


+ 


+ 


'  2h\ 


u. 


“2^1,2  “3^1,3^^ 

^  1 


2h. 


u 


“1^1, 2V  1 


2,  1 


h 


( 


+ 


2  ) 


2h\ 


“1^1,3^^ 


h 


3  J 


h  J 


,  (4.2a) 


“2,2  “1^2,1  “3^2,3  1 


^2  ~  hr 


Ur,hr 


+ 


*1*2 


+ 


■f 


2hr 


“1,2 


“2^2,  1^^ 


h 


hh  '  2hl\ 

f 


u 


“1^2,1  “3^2,3^^ 
+  — ; - + 


1 


1 

A  ~  2 


^5  ~  2 


1  ) 
( 


2hr 


“3,2 


2,2  ■  h 
“2^2,3^^ 


1 


h 


h 


3  J 


^2,3  “3,2  “3^3,2  ^2^2,3^ 

V  ^3  ^2  ^2^3 

“1,3  ^“3,1  “3^3,1 


V  ^3 


^1^3 


^2^3  y 

^1^1,3^ 
^1^3  y 


3  y 


,  (4.2b) 


(4.2c) 


(4.2d) 
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(4.2e) 


^6  “  2 


1  “2^2,1  “1^1,2^ 


V  h 
f 


^1^2  ^1^2  J 


+ 


+ 


“1^2, 1^^ 

,“1,2- 


“2^1,2^'^ 
,“2,1-  ^ 
f 


“2^1,2  “3^1,3^ 

M,  ,  +  r.  +  - 

,  hr^  h^  J 

Mj/Zj  2  “3^2,3^ 

^  +  ,  + 


^^1^2 


“3, 1 


V 

“1^1,3^^ 


‘2,2^  h 


1 


/z 


/z 


3  y 


“2^2,3^ 

,“3,2-  /.3  ^ 


3  J 


The  complete  strain-displacement  relations  for  the  quasi-nonlinear  HTSD  theory  includ¬ 
ing  spherical  geometry  are  given  in  Appendix  E. 

The  second  extension  of  the  theory  from  Dennis  is  the  modification  of  the  constitutive 
relations  to  include  elastic-plastic  material  behavior  with  the  inclusion  of  work  hardening. 
For  isotropic  materials,  the  incremental  elastic-plastic  constitutive  relations  for  each  layer 
in  the  shell  are  given  by 


where 


(£>'  0 
0  D' 


{rffl}  {dp} 
T 


A+{t/^}  {a} 


(4.9) 


(4.10a) 


(4.10b) 


{«} 


T 


dF  dF  dF 
^^11’  ^^22’  ^^12 


(4.10c) 
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The  von  Mises  yield  criteria  is  given  by 


F(ct)  =o"  =  73(V)‘^"  =  YC,/o..' 

=  (o'22)^+ 


(4.11) 


r  2  2  2”1 

+  V3  (a'23)  +  +  (g'i^) 


13^ 


33^  J 
12 


The  strain-hardening  effect  is  found  through  the  scalar  A.  It  has  been  shown  by  Owen  & 
Hinton  (1980)  that 


(4.12) 


By  using  the  Ramberg-Osgood  equation  to  characterize  the  stress-strain  curve,  the  effec¬ 
tive  plastic  strain  can  be  characterized  with  effective  stress  by 

-p  -n 

~  ^^m—1  •  (4.15) 

-p 

The  differential,  dEm ,  can  be  represented  as 


Thus, 


-p  -n-1  - 

~  knOffi  _  j  |  . 


1 

-n  -  1 
kn<5 


(4.16) 


(4.17) 


The  modified  Huber-Mises  yield  criteria  for  laminated  composite  materials  is  given  by 
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(4.23) 


-2  2  2  2 
^  =  ^^12  ^*^11  ”^12^  ■*■  ^23^22  ^31^11 

+  3^44023  +  3^5^013  +  3^66^12  =  0 


where  ay  are  anisotropic  interaction  parameters  determined  from  experimental  yield 
stress  values  Yy.  Thus,  for  transversely  isotropic  materials  the  anisotropic  interaction 
parameters  are 


<  Y  \2 
^11 


‘^ll  “  *^12  ■^‘^31  “ 


v^ii; 


=  1  , 


(4.26a) 


^22  ~  ^^23  ■‘■'^12  ~ 


''  Y  \2 
^11 

V^22; 


(4.26b) 


^33  “  ^^31  ■‘■^23  ~ 


V^33; 


f  Y  \2 
^11 


V^22; 


(4.26c) 
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(  Y  \ 

^11 

2  1 

i'll  1 

2  1 

(  Y  \ 

^11 

^44  "  3 

1^23; 

■  3 

1  (0-8)  i'nJ 

“  3  (0.64) 

Y 

K^\2) 

(4.26d) 


1 

i  Y  ) 

^11 

2  1 

(  Y  \ 

^11 

^55  ~  3 

y 

V^13>^ 

"  3 

Y 

K^U) 

(4.26e) 


^66  ~  3 


11 


v^i2; 


The  strain-hardening  parameter  H'  for  anisotropic  materials  is  found  to  be 


(4.26f) 


H'  =  do/dE  = 


^2(^22^22^ 


(n-2) 


+  +  «55C5^3  +  055^^2  1  ^ 


22 
(n-3)- 


(4.33) 


The  third  extension  to  Dennis'  theory  was  allowing  for  a  large  strain  formulation.  This 
implies  the  Cauchy  stress-strain  and  the  Lagrangian  stress-strain  relations  are  no  longer 
the  same.  Thus,  for  a  total  Lagrangian  formulation,  the  constitutive  relations  must  be 
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transformed  from  the  Eulerian  coordinates  to  the  Lagrangian  coordinate  axes.  Washizu 
(1982)  developed  a  displacement  based  tranformation  between  Cauchy  strain  and  Green's 
strain  and  between  Cauchy  stress  and  Kirchhoff  stress.  Applying  shell  theory  and  assum¬ 
ing  rotations  of  the  normals  and  about  the  normals  to  be  small  these  transformation  matri¬ 
ces  are  found  to  be  for  the  stress  state 


and  for  the  strain  state 


r  1 

{<5  }  -  ^ 


1 

^ 

D 


{a}  , 


{£}  , 
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D' 

D'  =  (1  -f  j)  (1  +  1^2  2^  2^2  1  ’ 


and 


D-  (1  +  j)  (1  +  M2  2)  “1,2^2,  1  ■ 

Thus,  for  a  large-strain  total  Lagrangian  formulation 


{a} 


1 


{e}  =  [d]  {£}  , 


(4.69) 


(4.70) 


(4.71) 


(4.72) 


(4.63) 


(4.60) 


(4.75) 


where  [A]  is  the  Eulerian  constitutive  matrix  and  [D]  is  the  Lagrangian  constitutive  matrix. 

The  author's  approach  of  including  nonlinear  material  effects  in  the  cubic  nonlinear 
HTSD  theory  incorporated  several  assumptions  beyond  those  of  Dennis.  First,  the  author 
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was  primarily  interested  in  problems  involving  large  rotations,  curvature  changes,  and 
large  strains  for  laminated  composite  shells.  Thus,  the  displacement  field  of  Dennis  was 
used  with  a  minor  modification  to  allow  for  spherical  geometry.  The  author  employed  a 
layered  approach  to  analyzing  the  nonlinear  material  effects.  This  method  has  been  effec¬ 
tively  modelled  by  other  researchers  in  updated  Lagrangian  stress-resultant  formulations. 
Each  layer  is  allowed  to  become  individually  plastic.  Thus,  the  outer  layers  of  the  shell  are 
allowed  to  generate  larger  plastic  strains  than  the  inner  layers  at  eachincrement  of  dis¬ 
placement.  One  simplifying  assumption  made  was  to  allow  the  constitu-tive  transforma¬ 
tion  of  the  mid-surface  be  applied  to  each  layer. 

Thus,  the  goal  of  this  research  was  to  evaluate  the  effects  of  three  theoretical  exten¬ 
sions  not  previously  investigated  for  linear-elastic  shells  with  large  displacement,  rota¬ 
tions,  and  curvatures  using  a  higher-order  transverse  shear  deformation  theory.  These 
three  extensions  were  the  development  of  spherical  geometry,  the  transformation  of  the 
constitutive  relations  from  Eulerian  coordinates  to  Lagrangian  coordinates,  and  allowing 
the  constitutive  relations  to  become  elastic-plastic  with  strain  hardening.  The  strain  hard¬ 
ening  is  characterized  by  using  Ramberg-Osgood  parameters  developed  from  experimen¬ 
tally  derived  stress-strain  curves. 

This  previous  section  of  theoretical  discussion  dealt  with  the  development  of  the  dis¬ 
placement  field,  the  strain-displacement  relations,  and  the  constitutive  relations  for  lami¬ 
nated  composite  shells.  The  next  phase  in  the  research  was  the  development  and  solution 
of  the  governing  differential  equations  for  shell  problems.  Since  the  author  was  specifi¬ 
cally  interested  in  nonlinear  phenomena  of  large  displacements,  rotations,  and  strains,  no 
analytical  or  linear  solutions  were  desired.  The  finite  element  technique  is  used  to  obtain 
numerical  solutions  for  cylindrical  and  spherical  shells.  The  finite  element  equations  are 
based  upon  the  total  potential  energy  of  the  elastic  body  or  the  virtual  work  expression  for 
the  elastic-plastic  body.  Specifically,  the  principal  of  stationary  potential  energy  is  used 
where  the  first  variation  of  potential  energy  of  the  system  is  set  equal  to  zero.  The  poten¬ 
tial  energy  expression  was  found  by  first  examining  the  equilibrium  state  of  the  body.  For 
a  body  with  prescribed  forces  on  part  of  its  surface  and  prescribed  boundary  conditions  on 
the  remaining  part  of  the  surface,  the  equations  of  equilibrium  for  an  infinitesimal  virtual 
displacement  were  developed  in  terms  of  the  Second  Piola-Kirchhoff  stress  tensor  and  the 
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Green  strain  components  expressed  in  the  body's  coordinate  system.  Assuming  strains 
were  small,  then  the  stresses  could  be  written  in  terms  of  the  strains.  For  a  laminated 
orthotropic  material,  the  stress  components  could  be  written  in  terms  of  the  reduced  struc¬ 
tural  stiffness  of  the  lamina.  These  quantities  depended  only  on  the  thickness  coordinate. 
Thus,  they  could  be  written  in  terms  of  an  integral  over  the  midsurface  of  the  shell,  with 
the  integration  in  the  thickness  direction  performed  analytically. 

The  variation  of  total  potential  energy  gave  five  coupled  nonlinear  partial  differential 
equations  which  governed  the  equilibrium  of  the  system.  These  expressions  contained  18 


displacement  parameters:  u,  m j,  U  2,  v,  v  j,  V2,  w,  w  |,  W2,  vv  n,  W22,  >^12,  X|/i, 


V2’  ¥2,i>  ^nd  V|/2  2-  These  parameters  included  seven  displacement  parameters  of  Eq 


(3.72)  and  their  derivatives.  Since  the  equilibrium  equations  were  nonlinear  in  terns  of  the 
displacement  parameters,  an  incremental-iterative  approach  is  used  to  solve  a  systmem  of 
linearized  equations  which  yields  an  equivalent  solution.  For  simple  theories,  such  as 
Donnell's  theory  or  a  linear  FTSD  theory  where  relatively  few  terms  are  included,  the  first 
variation  of  potential  energy  and  its  linearization,  can  be  explicitly  developed,  term  by 
term.  For  more  complete  theories,  such  as  a  linear  HTSD  theory  or  the  fully  nonlinear  the¬ 
ory,  the  potential  energy  expression  has  several  hundred  terms.  Its  first  variation  could 
possibly  include  thousand  of  terms,  and  the  subsequent  linear  equilibrium  equations 
would  be  quite  lengthy. 

Rajasekaran  and  Murray  (1973)  developed  a  formal  procedure  for  finite  elements, 
which  defined  the  total  potential  energy,  its  first  variation,  and  the  linear  incremental  equi¬ 
librium  equations  in  terms  of  three  stiffness  matrices.  Specifically  the  total  potential 
energy  was  given  by 


121^2 


{«}  -  {q}^{P} 


(4.85) 


where 

{q}  =3.  column  arrray  of  nodal  displacement  parameters 
{P}  =  a  column  array  of  nodal  loads 

s  an  array  of  constant  stiffness  coefficients 
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[//l]  =  an  array  of  nonlinear  coefficients  with  each  term  dependent  on  one  of  the 
displacement  parameters  ([A^j]  is  linear  in  terms  of  displacement),  and 
[A^2]  =  ^  of  nonlinear  coefficients  with  each  term  dependent  on  the  product 
of  two  displacement  parameters  ([iV2]  is  quadratic  in  terms  of  displacement). 


The  first  variation  of  potential  energy  is  then  given  by 


■^2 


{q}  -  {P}  =  {0} 


and  the  linear  incremental  equilibrium  equation  is  given  by 


{A^}  -  {AP}  =  {0} 


(4.86) 


(4.87) 


Rajasekaran  and  Murray's  formulation  was  for  finite  elements  in  which  strains  did  not 
vary  through  the  thickness  of  the  element.  This  formulation  was  extended  to  account  for 
variation  of  strain  through  the  thickness  of  the  curved  shell.  The  strain  at  a  point  in  the 
shell  was  developed  in  terms  of  a  series  expansion  in  the  thickness  coordinate,  and  new 

definitions  of  [^],  [A^i  ],  and  [A^2]  were  developed  for  the  theory  with  transverse  shear 
deformation.  This  formulation  required  hundreds  of  matrix  multiplications  to  evaluate 
these  equations.  A  MACSYMA  routine  was  developed  to  symbolically  generate  the 
assumed  displacement  field,  determine  strain  components,  determine  the  shell  shape  fac¬ 
tor  approximations,  determine  the  elements  of  the  strain  defintion  arrays,  form  the  stiff¬ 
ness  arrays,  and  finally  generate  the  Fortran  code  for  elements  of  the  [k],  [A^i  ],  and  [^2  ] 
stiffness  arrays.  Development  of  this  routine  was  an  important  part  of  this  research. 

The  element  independent  stiffness  matrices  of  this  theory  depended  upon  the  contin¬ 
uum  displacement  gradient  vector  [d}.  Using  a  standard  displacement-based  finite  ele¬ 
ment  method,  the  18  two-dimensional  functions  of  the  continuum  displacement  gradient 
vector  are  approximated  by  interpolation  from  discrete  values  of  nodal  displacement 
parameters.  These  nodal  parameters,  or  degrees  of  freedom,  were  defined  only  at  a  finite- 
number  of  points  or  nodes.  The  finite  element  method  required  the  computation  of  the 
stiffness  matrices  for  each  element  independently.  These  elemental  stiffnesses  were  then 
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assembled  according  to  their  relationship  to  global  nodes  of  the  structure. 

Defining  the  nodal  degrees  of  freedom  required  definition  for  the  specific  element, 
since  the  nodal  parameters  of  {(j}  and  the  associated  nodal  interpolation  array  are  element 
specific.  The  element  of  choice  is  the  36  degree  of  freedom  quadrilateral  curved  shell  ele¬ 
ment  developed  by  Dennis  (1988).  This  element  has  been  used  for  many  investigations  of 
static  and  dynamic  responsed  of  plates,  arches,  and  cylindrical  shell  undergoing  large  dis¬ 
placements  with  linear  HTSD  theory  (von  Karman  or  Donnell  theory  with  HTSD  theory 
included).  The  element  has  eiqht  nodes  with  seven  degrees  of  freedom,  u,  v,  w,  w  j,  W  2, 
\|/l,  and  \|/2,  at  each  of  the  four  comer  nodes  and  two  degrees  of  freedom,  u  and  v,  at  the 
four  midside  nodes.  The  two  degrees  of  freedom  at  the  midside  nodes  allow  for  quadratic 
interpolation  of  in-plane  displacements  u  and  v.  This  is  important  for  shells,  due  to  the  cur¬ 
vature-induced  coupling  of  bending  and  membrane  activity  in  shells.  The  continuum  val¬ 
ues  of  u  and  v  were  interpolated  from  the  nodal  values  and  v^,  using  quadratic 
Lagrangian  interpolation  functions.  The  continuum  displacement  gradient  vector  {d} 
included  \|ri  and  V|/2  and  the  first  derivatives  of  these  parameters.  Thus,  linear  interpolation 

could  be  used  for  these  parameters,  since  C®  continuity  is  required.  The  interpolations  of 
\\fl  and  V|/2  were  given  linear  Lagrangian  interpolation  functions.  Nodal  parameters  associ¬ 
ated  with  transverse  displacement  included  the  values  w,  w  j ,  and  w  2  at  each  of  the  four 
corner  nodes.  Thus,  interpolation  of  w  was  accomplished  using  cubic  Hermitian  shape 
functions. 

The  two-dimensional  integration  of  the  finite  element  equations,  in  the  plane  of  the 
finite  element,  was  accomplished  by  numerical  integration  using  Gaussian  quadrature. 
Solution  of  the  resulting  equations  was  accomplished  by  an  incremental-iterative  tech¬ 
nique  commonly  called  the  Newton-Raphson  method,  in  which  the  solution  is  either  dis¬ 
placement  or  load  controlled.  The  parameters  to  be  incremented  were  the  elements  of  the 
array  {d},  containing  global  degrees  of  freedom.  A  global  criterion,  written  in  terms  of  the 
norms  of  all  displacement  parameters,  used  to  determine  convergence. 
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7.2  Elastic  Shell  Analysis 


One  objective  of  this  research  was  to  evaluate  the  accuracy  of  the  new  quasi-nonlinear 
HTSD  theories  (spherical  geometry  and  elastic  constitutive  relations  with  material  trans¬ 
formation  matrices).  Another  objective  was  to  assess  their  limitations.  Shallow  shell  prob¬ 
lems  included  a  thick  flat  quasi-isotropic  plate  with  uniform  transverse  pressure  load,  a 
thin,  deep  isotropic  cylindrical  arch  with  a  transverse  point  load,  a  thin  isotropic  and 
quasi-isotropic  cylindrical  shell  panels  with  a  transverse  point  load,  a  deep,  thin  laminated 
composite  cylindrical  shell  panels  under  a  transverse  point  load  with  various  ply  lay-ups,  a 
thin  quasi-isotropic  cylindrical  shell  panel  with  and  without  a  large  cut-out  and  uniform 
axial  compression  load,  and  thin  isotropic  and  laminated  composite  spherical  shells  under 
transverse  load  with  various  ply  lay-ups. 

The  transversely-loaded  flat  plate  problem  was  used  to  test  the  MACSYMA  generated 
codes.  The  plate  chosen  was  an  8-ply  quasi-isotropic  laminated  square  plate  with  total 
length  of  4.064-cm  which  indicated  transverse  shear  may  be  important.  Solutions  were 
computed  using  a  4  x  4  mesh  of  elements  to  model  one  quadrant  of  the  plate.  For  this 
problem,  the  various  HTSD  elastic  theories  all  gave  results  within  one  percent  of  each 
other,  and  predicted  significantly  more  flexible  results  than  the  classical  von  Karman  the¬ 
ory  code.  Although  the  difference  was  negligible,  all  the  nonlinear  HTSD  codes  predicted 
a  more  flexible  response  than  the  linear  HTSD  codes  predicted.  This  problem  validated 
the  computational  algorithms  used  to  develop  and  solve  the  linear  and  nonlinear  HTSD 
finite  element  equations  for  laminated  composite  shells. 

The  second  problem  was  a  thin,  deep  isotropic  cylindrical  arch  with  hinged  boundary 
conditions  under  a  transverse  point  load  at  the  center  of  the  arch.  Deep  circular  arches  can 
be  used  to  demonstrate  a  theory's  ability  to  predict  large  displacements  and  rotations. 
Many  variations  of  transversely-loaded  deep  arch  problems  have  been  reported  in  the  lit¬ 
erature.  The  problem  chosen  for  this  research  was  a  254.0-cm  radius  isotropic  arch  with  a 
2.54-cm  square  cross  section  and  an  opening  angle  of  0.92  radians  (106°).  Solutions  for 
this  problem  were  computed  using  all  variations  of  the  HTSD  theory.  A  1  x  40  mesh  of 
elements  was  used  to  represent  one  quadrant  of  the  arch.  The  quasi-nonlinear  HTSD  pre¬ 
dicts  a  more  dramatic  collapse  than  the  linear  Donnell-type  solution  (even  though  the 
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Donnell  theory  was  modified  to  include  transverse  shear  deformation).  The  divergence 
between  the  two  theories  occur  when  the  transverse  displacement,  w,  reaches  30.48-cm.  At 
this  point  on  the  equlibirum  path,  the  maximum  rotation  of  the  normal,  \i/2,  reaches  0.354 

radians  (20.3°)  and  over  32%  of  the  shell  surface  see  rotations  of  0.171  radians  (9.8°). 
This  difference  in  predicted  response  was  due  to  the  many  nonlinear  in-plnae  displace¬ 
ment  terms  in  the  strain  definitions  that  are  not  included  in  the  Donnell  equations.  How¬ 
ever,  when  the  material  transformations  are  included  in  the  quasi-nonlinear  HTSD  theory, 
a  more  flexible  structure  is  predicted.  This  theory  diverges  from  the  quasi-nonlinear 
HTSD  theory  when  the  transverse  displacement,  w,  reaches  20.32-cm.  At  this  point  on  the 

equilibrium  path,  the  maximum  rotation  of  the  normal,  \|/2,  reaches  0.244  radians  (14.0°) 

and  over  29%  of  the  arch  surface  saw  rotations  of  0.10  radians  (5.72°).  Due  to  these  rota¬ 
tions,  the  isotropic  material  properties  are  becoming  anisotropic  due  to  the  movement  of 
the  material  coordinate  system  relative  to  the  structural  coordinate  system.  At  the  point  of 

collapse,  w  =  60.96-cm,  \|/2  =  0.531  radians  (30.4°)  and  over  45%  of  the  arch  surface  saw 

rotations  of  0.20  radians  (14.7°). 

The  third  class  of  problems  investigated  were  thin  shallow  hinged-free  isotropic  or 
quasi-isotropic  cylindrical  shells  with  a  transverse  point  load  at  the  center  of  the  panel. 
The  first  problem  was  a  0.635-cm  thick  cylindrical  shell  of  isotropic  material  under  a 
transverse  point  load  with  hinged  boundary  conditions  along  the  axial  edges.  The  shell  has 
a  254.0-cm  radius  with  axial  and  circumferential  lengths  of  50.8-cm.  Solutions  were  com¬ 
puted  using  a  4  X  6  mesh  of  elements  to  model  one  quadrant  of  the  shell.  For  this  prob¬ 
lem,  the  linear  and  quasi-nonlinear  HTSD  theories  all  produced  the  same  results.  In 
comparison  to  the  plate  problem,  the  quasi-nonlinear  HTSD  theories  for  this  problem 
showed  greater  flexibility  than  the  linear  HTSD  variants,  but  only  after  the  collapse  phase. 
The  quasi-nonlinear  HTSD  with  material  transformations  theory  predicted  a  load  about  4 
percent  less  than  the  modified  Donnell  theory  (with  HTSD  included)  in  the  range  of 
0.7  <  w  <  0.8  and  about  12  percent  less  at  w  =  0.2.286-cm.  This  is  due  to  the  increased 
coupling  of  membrane,  bending,  and  transverse  shear  activity  in  the  quasi-nonlinear 
HTSD  theory. 
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Values  of  the  rotational  term,  \)/2,  for  ten  increments  of  transverse  displacement,  were- 
compared  for  the  cubic-nonlinear  HTSD  theory  with  material  transformations.  The  maxi¬ 
mum  rotation  for  increments  1-7  never  exceeded  0.11  radians  (6.3°),  before  the  shell 

snaps.  After  the  shell  snaps,  the  maximum  rotation  measured  is  0.15  radians  (8.6°).  These 
are  considered  small  rotations  and  the  material  transformation  matrices  have  a  negligible 
effect  when  included  in  the  analysis. 

The  inclusion  of  laminated  composite  materials  is  considered  in  a  0.635-cm  thick 
quasi-isotropic  shell  under  a  transverse  point  load.  The  geometry  and  boundary  conditions 
are  the  same  as  the  isotropic  shell  problem.  An  8  x  12  mesh  of  elements  is  used  to  model 
one  quadrant  of  the  shell.  The  quasi-isotropic  shell  exhibited  a  significantly  different  equi¬ 
librium  path  than  the  isotropic  shell.  The  peak  collapse  load  is  nine  times  the  magnitude  of 
the  isotropic  problem  and  the  shape  of  the  equilibrium  curve  is  not  as  dramatic  as  for  the 
isotropic  shell.  Interestingly  enough,  when  comparisons  were  made  in  the  development  of 
the  rotational  degree  of  freedom,  \|/2,  the  magnitudes  of  the  rotations  were  similar  to  those 
of  the  isotropic  shell.  Only  the  distributions  of  the  \j/2  rotations  differ  between  the  isotropic 
and  quasi-isotropic  shells.  As  before,  the  magnitude  of  the  rotations  are  small  and  the 
effect  of  the  material  transformation  matrices  was  negligible. 

A  clamped-free  cylindrical  shell  panel  with  various  ply  lay-ups  under  a  transverse 
point  load,  was  chosen  to  study  the  effects  of  material  transformation  matrices  for  deep 
composite  shell  panels.  This  shell  panel  had  a  30.48-cm  radius,  a  thickness  of  0.102-cm, 
and  dimensions  of  27.94-cm  (lateral)  by  30.48-cm  (circumferential).  Because  of  the  larger 
circumferential  dimension,  this  shell  was  significantly  deeper  than  the  previous  problems. 
Tsai  and  others  (1990)  investigated  shells  of  this  configuration  and  compared  static  and 
dynamic  results  for  different  material  properties  and  ply  lay-ups.  A  one  quadrant  96  ele¬ 
ment  mesh  (8  X  12 )  was  chosen  for  this  problem.  The  cubic-nonlinear  HTSD  theory  pre¬ 
dicted  results  similar  to  those  of  Tsai.  The  cubic-nonlinear  HTSD  theory  with  material 
transformation  matrices  predicted  signficantly  more  flexible  results  than  the  other  theo¬ 
ries.  The  material  transformation  theory  significantly  altered  the  global  displacement 
response  of  the  shell(s)  in  the  post-snapping  behavior  when  the  shell(s)s  returned  to  a  ten¬ 
sile  load  state.  This  is  attributed  to  the  majority  of  shell  achieving  a  deformed  shape 
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exhibited  in  Figure  5.17  where  a  significant  portion  of  the  shell,  at  least  30%,  was  under¬ 
going  rotations  of  0.45  radians  (25.78°)  or  greater. 

The  1 /4-inch  thick  isotropic  panel  has  properties  that  did  not  vary  with  orientation  of 
the  material.  The  shear  modulus  for  the  isotropic  panel  was  assumed  to  be  one-half  the 
Young’s  modulus.  Since  the  shell  behaved  in  a  flexible  manner  and  snapped  through 
with  a  relatively  low  transverse  load,  the  initial  severity  of  bending  was  characterized  by 
the  distance  between  the  lateral  supports  and  the  depth  of  the  shell.  The  quasi-isotropic 
shell  had  a  [07-45/45/90]^  ply  lay-up  with  a  ratio  of  E1IE2  =  15  and  a  transverse  modulus 
less  than  Ej.  For  the  composite  shell,  the  primary  cause  of  deformation  was  also  bending 
activity.  The  inner  plies  of  this  laminated  panel  were  the  only  plies  in  the  transverse  direc¬ 
tion.  This  implies  that  75  %  of  the  material  of  this  shell  has  a  bending  stiffness  [Z),y]  in  the 
circumferential  direction  that  was  significantly  less  than  the  outer  plies.  This  panel  was 
only  0.04-inches  thick.  Thus,  the  inner  plies  may  not  have  been  effective  in  resisting 
bending,  since  they  were  so  close  to  the  midsurface  of  the  shell.  With  the  lateral  supports 
of  this  shell  clamped,  the  final  deformed  shape  of  the  shell  exhibited  both  positive  and 
negative  curvatures.  The  severity  of  bending  is  characterized  by  the  distance  of  about  2 
inches.  The  bending  activity  of  the  clamped  composite  shelll  was  more  severe  than  that  of 
the  hinged  isotropic  shell. 

These  problems  demonstrated  that  non-isotropic  material  properties  have  a  significant 
effect  upon  the  predicted  global  response/behavior  of  shell  structures.  Because  of  the 
reduced  stiffness  in  the  circumferential  direction,  the  increased  coupling  of  transverse 
shear  activity  and  rotations  with  the  in-plane  strains,  and  the  significantly  lower  transverse 
shear  properties  of  this  panel,  the  incorportation  of  the  material  transformations  (based  on 
displacement  terms)  significantly  affected  the  strain  energy  of  the  composite  shell.  This 
resulted  in  a  more  flexible  structure  at  snapping,  and  in  the  snap- through  phase  of  the 
shell’s  response. 

A  set  of  problems  with  quasi-isotropic  material  and  similar  radius  of  curvature,  but  a 
significantly  altered  loading  scheme  was  chosen  next.  These  problems  were  axially- 
loaded  quasi-isotropic  cylindrical  shell  panels  with  and  without  a  10.16-cm  centered  cut¬ 
out.  These  panels  has  a  radius  of  30.48-cms,  a  thickness  of  0.102-cm,  and  dimensions  of 
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30.48-cm  (lateral)  by  30.48-cm  (circumferential).  The  cut-out  was  square,  10.16-cm  sides, 
and  was  centrally  located.  Due  to  the  possibility  of  nonsymmetric  deformation  as  dis¬ 
cussed  by  Tisler  (1986)  and  Palazotto  &  Dennis  (1992),  the  entire  panel  was  modelled 
with  576  elements.  Only  the  cubic-nonlinear  HTSD  theory  and  the  cubic-nonlinear  HTSD 
theory  including  material  transformations  were  evaluated. 

When  considering  the  rotations  observed  in  both  problems,  it  was  evident  that  the 

maximum  rotational  \|r2  observed  was  9.5°  for  the  cylindrical  shell  without  a  cutout  and 
7.8°  for  the  cylindrical  shell  with  a  cutout.  In  both  analyses,  less  than  18%  of  the  shell 
surface  observed  magnitudes  of  \^2  greater  than  4°.  Thus,  the  effect  of  the  material  trans¬ 
formations  on  the  global  displacement  behavior  of  these  shells  was  minimal.  Considering 
the  relative  magnitude  of  transverse  deflection  and  circumferential  rotation,  and  the  rela¬ 
tion  of  the  depth  of  the  shell  versus  shell  thickness,  these  axial  panels  represent  a  rather 
shallow  shell  when  compared  to  the  previous  problem. 

Since  one  of  the  objectives  of  this  effort  was  to  include  spherical  geometry,  an  isotro¬ 
pic  spherical  shell  cap  was  chosen  as  the  next  exercise.  This  problem  was  first  solved  by 
Argyris  (1980)  and  later  br  Parisch  (1981).  This  isotropic  shell  is  hinged  on  all  four 
boundaries  and  has  a  depth  of  2.181-cm.  It  is  4.60-cm  along  each  circumferential  direc¬ 
tion,  has  a  thickness  of  0.0158-inches  and  a  radius  of  curvature  of  12.09-cm.  The  shell 
was  modelled  by  a  12  x  12  mesh  with  the  transverse  displacement  prescribed  at  the  apex. 
The  cubic-nonlinear  HTSD  and  cubic-nonlinear  HTSD  with  material  transformation  theo¬ 
ries  compared  favorably  with  Argyris’  TRUMP  element.  Both  theories  predicted  a  more 
flexible  shell  displacement  response  than  either  Argyris  or  Parisch  reported.  This  is  attrib¬ 
uted  to  the  eight-noded  element  used  by  the  author  which  allows  quadratic  interpolation  of 
the  in-plane  degrees  of  freedom,  u  and  v.  This  allowed  the  membrane  activity  of  the  shell 
to  behave  in  a  more  flexible  manner  than  the  four-noded  TRUMP  element. 

The  maximum  \^2  rotation  observed  in  the  shell  was  15.68°  at  the  collapse  point  and 

over  20%  of  the  shell  surface  saw  11/2  rotations  of  14.9°.  These  rotations  are  considered 
relatively  small  for  shell  behavior.  Thus,  it  is  not  surprising  the  inclusion  of  the  material 
transformation  matrices  in  the  cubic-nonlinear  HTSD  theory  had  minimal  effect  on  alter- 
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ing  the  shell’s  global  displacement  response. 

The  final  set  of  problems  chosen  were  essentially  the  isotropic  hinged  spherical  shell 
cap  with  the  material  changed  to  quasi-isotropic  laminates.  Three  ply  lay-ups  were  con¬ 
sidered,  [07-45/45/90]^,  [02/902]^,  and  [Og].  The  author  realizes  the  inclusion  of  ±45°  plies 
is  impractical  from  an  experimental  point  of  view  owing  to  the  difficulties  of  maintaining 
a  true  45°  fiber  orientation  throughout  the  spherical  cap.  However,  the  [07-45/45/90]^  does 
offer  a  unique  comparison  with  the  other  quasi-isotropic  and  the  isotropic  spherical  shell 
cap  problems.  In  all  three  analyses,  the  cubic-nonlinear  HTSD  theory  with  the  material 
transformation  matrices  had  a  minimal  effect  on  the  shell(s)’  global  displacment  response. 
This  was  not  surprising  considering  the  relative  small  \j/2  rotations  (only  12%  of  the  shell 

surface  saw  magnitudes  of  \|/2  greater  than  15°).  It  was  only  in  the  snap-through  phase  of 

the  equilibrium  curve,  when  \\f2  exceeded  11.1°,  that  this  theory  predicted  a  more  flexible 
shell  response  than  the  cubic-nonlinear  HTSD  theory.  As  mentioned  in  the  isotropic 
spherical  shell  cap  analysis,  these  types  of  shells  are  relatively  shallow  and  only  provided 
a  moderate  test  of  the  cubic-nonlinear  HTSD  theory  with  material  transformation  matrices 
included. 


7.3  Elastic-Plastic  Shell  Analysis 

A  simply-supported,  elastic-perfectly  plastic  plate  was  considered  to  exercise  and  val¬ 
idate  the  nonlinear  material  behavior  of  the  theory.  The  plate  is  2.54-cm  square  with  a 
thickness  of  0.01 -inches.  The  results  of  this  problem  were  compared  to  Owen  &  Hinton’s 
published  results  (1980).  One  quadrant  of  the  plate  was  modelled  with  64  uniform  ele¬ 
ments.  To  accurately  predict  Owen  &  Hinton’s  results,  the  membrane  activity  of  the  plate 
was  minimized  to  allow  bending  activity  to  dominate  the  plate’s  response.  This  was 
accomplished  by  removing  the  in-plane  degrees  of  freedom  u  and  v.  This  allowed  the 
flexure  stiffnesses  [Dy]  to  dominate  the  analysis,  thereby  allowing  the  plate  response  to  be 
purely  bending.  The  nonlinear  material,  large  strain  theory  accurately  predicted  the  plate’s 
global  displacement  response  when  compared  to  Owen  &  Hinton’s.  Since  there  is  no  cur- 
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vature  in  the  plate,  many  of  the  nonlinear  displacement  terms  become  zero.  In  additon,  the 
plate  is  relatively  thin,  so  transverse  shear  is  neglible  also.  As  expected,  the  nonlinear 
material  von  Karman,  nonlinear  material  modified  von  Karman,  and  the  nonlinear  materal 
cubic-nonlinear  HTSD  theories  predicted  virtually  the  same  equilibrium  curve. 

The  next  problem  chosen  was  that  of  a  deep,  isotropic  cylindrical  arch.  This  problem 
was  identical  to  the  cylindrical  arch  problem  previously  discussed  in  the  elastic  analysis. 
Section  7.3.  However,  the  material  is  allowed  to  yield  and  behave  perfectly  plastic  to 
determined  the  effect  of  nonlinear  material  behavior  on  a  shell’s  global  displacement 
response.  Comparisons  between  the  elastic  cubic -nonliner  HTSD  theory  and  the  nonlin¬ 
ear  material  cubic-nonlinear  HTSD  theories  were  made.  As  before,  a  1  x  40  mesh  was 
used  to  model  a  quadrant  of  the  arch.  The  inclusion  of  nonlinear  material  behavior  signif¬ 
icantly  altered  the  arch’s  global  displacement  response.  The  collapse  load  was  reduced  by 
29.4%  when  compared  to  the  Donnell  theory,  22.3%  when  compared  to  the  cubic-nonlin¬ 
ear  HTSD  theory,  and  16.4%  when  compared  to  the  cubic-nonlinear  HTSD  theory  with 
the  material  transformation  matrices  included.  As  expected,  the  global  displacement 
response  of  the  arch  became  more  flexible  when  nonlinear  material  behavior  was  included 
in  the  analysis. 

In  the  post-collapse  response  of  the  nonlinear  material  model  differs  from  the  Donnell, 
modified  Donnell,  and  Huddelston’s  inextensible  solution  (1968)  for  cylindrical  arches. 
This  is  attributed  to  the  higher-order  representation  of  the  deformation  of  the  midsurface 
of  the  arch  and  the  continually  changing  properties  of  teh  elastic  perfectly-plastic  material. 
Almroth  &  Brogan  (1980)  saw  a  similar  effect  to  the  inextensible  solution  of  a  deep  arch. 
Their  finite  element  formulation  allows  for  nonzero  straining,  and  their  results  were  con¬ 
sistently  more  flexible  compared  to  the  inextensible  solution. 

To  test  the  plasticity  model  for  true  cylindrical  shells,  a  short  isotropic  cylinder 
bounded  by  two  rigid  diaphragms  at  its  ends,  loaded  with  two  transverse  pinching  loads  at 
the  middle  section,  and  characterized  as  elastic  perfectly-plastic  was  chosen.  This  prob¬ 
lem  was  published  by  Simo  &  Kennedy  in  1992.  The  cylinder  was  3  non-dimensionalized 
units  thick,  180  non-dimensionalized  units  in  length  longitudinally,  and  had  a  300  non- 
dimensionalized  unit  radius  of  curvature.  An  8  x  36  element  mesh  was  used  to  model  one 
octant  of  the  cylinder.  The  theory  accurately  predicted  the  shell’s  global  displacement 
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response  and  compares  favorably  with  Simo  &  Kennedy’s  results. 

The  final  isotropic  shell  problem  chosen  was  the  spherical  shell  cap  first  published  by 
Argyris  (1980).  The  shell  is  4.60-cm  long  in  both  circumferential  directions  with  hinged 
boundary  conditions.  The  spherical  shell  cap  is  0.04-cm  thick,  has  a  depth  of  2.181-cm,  a 
radius  of  curvature  of  12.09-cm,  and  is  loaded  transversely  at  the  apex.  The  material  is 
assumed  to  behave  elastic  perfectly-plastic.  As  expected,  the  author’s  theory  predicts  a 
more  flexible  response  than  Argryis’  4-noded  TRUMP  element.  This  is  due,  primarily,  to 
the  8-noded  element,  with  quadratic  interplotion  of  the  in-plane  displacement  degrees  of 
freedom,  the  author  uses.  Since  rotations  remain  small,  the  only  significant  effect  on  the 
shell’s  global  displacement  response  was  the  inclusion  of  the  nonlinear  elastic -plastic 
material  behavior.  Simply  including  the  material  transformation  matrices  has  a  minor 
effect  on  the  equilibrium  path  of  the  shell. 

To  exercise  and  validate  the  author’s  theory  for  composite  laminas,  a  Graphite  Poly- 
etherether  Ketone  (Gr/PEEK)  tensile  coupon  was  chosen.  Gould  (1990)  conducted  a 

series  of  experiments  considering  ±45°  ply  lay-ups  and  then  compared  a  stress-resultant 
finite  element  formulation  to  determine  the  effect  of  including  material  tranformation 
matrices  within  a  nonlinear  material  theory.  The  tensile  coupon  was  2.54-cm  in  width, 
25.4-cm  in  length,  and  2.134-cm  thick.  The  ply  lay-up  chosen  for  comparison  was  [45/- 
45]4s.  The  anisotropic  nonlinear  material  parameters  needed  for  the  analysis  were  deter¬ 
mined  from  the  actual  experimental  stress-strain  curves  shown  by  Gould.  The  nonlinear 
material  cubic-nonlinear  HTSD  theory  accurately  predicted  the  equilibrium  path  for  the 
tensile  coupon  to  within  10%.  Due  to  the  orientation  of  the  fibers,  the  matrix  appeared  to 
carry  much  of  the  load.  Since  the  matrix  had  a  very  low  yield  stress,  it  was  expected  to 
observe  a  distinct  change  in  the  global  displacement  response  when  nonlinear  material 
behavior  was  included  in  the  theory. 

The  next  quasi-isotropic  shell  problem  chosen  was  a  clamped-free,  composite  cylin¬ 
drical  shell  panel  under  a  transverse  point  load  at  the  middle  section.  This  shell  panel  had 
a  30.48-cm  radius,  a  thickness  of  0.102-cm,  and  dimensions  of  27.94-cm  (lateral)  by 
30.48-cm  (circumferential).  Because  of  the  larger  circumferential  dimension,  this  shell 
was  significantly  deeper  than  the  previous  problems.  Based  on  the  previous  elastic  analy- 
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sis,  one  quadrant  of  the  shell  was  modelled  with  96  elements  (8  x  12  mesh).  Only  the  [0/ 
-45/45/90]^  ply  lay-up  was  considered.  The  anisotropic  nonlinear  material  parameters 
needed  for  the  analysis  were  determined  from  the  actual  experimental  stress-strain  curves 
of  graphite  epoxy  tensile  coupon  tests  representative  of  the  material  used  by  Hatfield.  The 
inclusion  of  the  nonlinear  material  behavior  significantly  altered  the  global  displacement 
response  of  the  shell.  The  collapse  load  was  46.2%  when  compared  to  the  Donnell  theory, 
and  38.1%  when  compared  to  the  cubic-nonlinear  HTSD  theory.  The  post-collapse  behav¬ 
ior  is  significantly  more  flexible  due  to  the  large  regions  of  plasticity  occuring  across  the 
surface  of  the  shell. 

The  axially  loaded  (buckling),  clamped-free  composite  cylindrical  shell  was  consid¬ 
ered  next.  This  problem  was  significant  due  to  the  availability  of  experimental  data  from 
Hatfield  (1991)  for  comparison.  This  shell  had  a  12-inch  radius  of  curvature,  was  12- 
inches  in  length  longitudinally  and  circumferentially.  The  shell’s  thickness  was  0.04- 
inches  and  the  ply  lay-up  was  [07-45/45/90]^.  The  anisotropic  nonlinear  material  parame¬ 
ters  needed  for  the  analysis  were  chosen  from  the  previous  clamped-free  transversely 
loaded  cylindrical  shell  problem.  The  inclusion  of  the  nonlinear  material  behavior  in  the 
model  did  alter  the  global  displacment  response  significantly.  For  the  cylindrical  panel 
without  a  cutout,  the  predicted  collapse  load  was  within  24.1%  of  Hatfield’s  experimental 
results.  For  the  cylindrical  panel  with  a  4-inch  centered  cutout,  the  predicted  collapse  load 
was  within  12.4%  of  the  experimental  results  recorded  by  Hatfield.  In  both  problems,  the 
shell’s  predicted  response  is  more  flexible  than  for  the  elastic  solutions,  and  behaves  simi¬ 
larly  to  the  experimental  results  observed  by  Hatfield. 

The  author  proposes  two  possibilities  for  the  large  variance  in  both  collapse  load  and 
axial  displacement  between  analysis  and  the  experiment.  The  first  is  the  possibility  that 
the  boundary  conditions  are  not  truly  clamped.  This  is  a  remote  possibility  considering  at 
least  1.27-cm  of  the  panel  is  clamped  at  both  the  top  and  bottom,  but  it  is  possible  the 
panel  is  moving  within  the  test  fixture’s  clamps.  The  other  possibility  is  in  the  fabrication 
of  the  panels.  Due  to  curing  stresses  generated  in  the  autoclave,  when  the  individual  pan¬ 
els  are  cut  from  the  general  laminate,  the  panels  tend  to  warp.  This  was  observed  by  the 
author  upon  examining  panels  fabricated  for  his  Master’s  Thesis  (1989).  This  warping 
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leads  to  a  radius  of  curvature  that  is  not  constant.  However,  the  test  fixtures  clamps  are  set 
for  a  constant  30.48-cm  radius  of  curvature.  Thus,  once  the  panels  are  seated  within  the 
test  fixture,  it  is  possible  a  slight  imperfection  is  being  induced.  Brush  &  Almroth  (1975) 
noted  that  an  imperfection  of  0.1%  is  significant  and  greatly  alters  the  equilibrium  path  of 
the  shell.  The  author  confirmed  this  phenomena  during  his  Master’s  Thesis  while  using 
the  STAGSC-1  code.  Since  the  author’s  theory  assumes  the  shell(s)  have  a  constant  radii 
of  curvature,  it  may  explain  why  the  theory  predicts  a  stiffer  shell,  even  when  nonlinear 
material  behavior  is  considered. 

The  final  set  of  problems  considered  were  hinged,  quasi-isotropic  spherical  shell  caps. 
These  shells  were  4.60-cm  in  length  circumferentially  with  a  radius  of  curvature  of  4.76- 
inches.  The  shell  thickness  was  0.04-cm  and  the  depth  was  2.181-cm.  The  anisotropic 
nonlinear  material  parameters  needed  for  the  analysis  were  chosen  from  the  previous 
clamped-free  transversely  loaded  cylindrical  shell  problem.  Due  to  the  need  for  accu¬ 
rately  resolving  the  stress-field  near  the  apex  of  the  spherical  shell,  a  refined  18x  18 
mesh  was  used  to  model  the  entire  shell.  Two  ply  lay-ups  were  considered,  [07-45/45/90]^ 
and  [Og].  Similarly  to  the  transversely  loaded  composite  cylindrical  shell,  the  nonlinear 
material  theory  does  predict  a  more  flexible  global  displacement  response.  For  the  [0/-45/ 
45/90]^  ply  lay-up,  the  collapse  load  was  reduced  by  17.8%  as  compared  to  the  elastic 
cubic-nonlinear  HTSD  theoy.  For  the  [Og]  ply  lay-up,  the  collapse  load  was  reduced  by 
23.9%  as  compared  to  the  cubic-nonlinear  HTSD  theory. 


7.4  Conclusions 

This  research  revealed  several  unique  findings  to  the  limitations  of  a  total  Lagrangian 
nonlinear  HTSD  shell  theory  employing  material  transformation  matrices  and  nonlinear 
material  behavior.  The  magnitudes  of  the  \|/,-  rotations  and  ratio  of  transverse  displacement 
to  depth  of  the  shell  were  found  to  be  important  factors  in  predicting  the  applicability  of 
the  material  transformation  nonlinear  HTSD  theory.  If  the  rotations  remained  small  (less 

than  15°)  the  material  transformation  matrices  had  no  effect  on  the  predicted  global  dis- 
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placement  response.  The  plate  problem  and  the  0.25-inch  thick  hinged-free  isotropic  shell 
panel  exhibited  such  a  response.  When  the  Donnell  approximations  are  no  longer  valid 

(\|/2  rotations  greater  than  15°)  the  material  transformations  have  a  minimal  effect  on  the 
predicted  global  displacement  response.  The  cylindrical  composite  shell  panels  with  and 
without  a  4-inch  centered  cutout  under  an  axial  load,  and  the  elastic  spherical  shell  cap 
problems  (isotropic  and  quasi-isotropic)  showed  only  a  marginal  increase  in  flexibility  in 
the  shell’s  global  displacement  response.  If  these  rotations  become  very  large  (\|/2  rota¬ 
tions  greater  than  27°),  then  the  material  transformation  matrices  have  a  significant  effect 
in  altering  the  shell’s  global  displacement  response.  The  cylindrical  arch  and  the  deep 
composite  cylindrical  shell  under  a  transverse  load  are  examples  of  this.  It  should  be 
noted  that  the  greatest  change  in  the  global  displacement  response  oecured  at  the  peak 
loading  and  during  the  snap-through  behavior. 

For  nonlinear  material  behavior,  the  significant  indicator  was  the  yield  stress  versus 
Young’s  modulus  for  isotropic  materials,  and  the  yield  stress  for  the  in-plane  ((712)  param¬ 
eter  versus  the  largest  elastic  moduli,  usually  Ex  for  anisotropic  materials.  If  these  ratios 

remained  small  (on  the  order  of  10"^  to  10'^),  plasticity  would  soon  dominate  the  shell’s 
global  displacement  response.  This  was  evident  in  all  the  quasi-isotropic  material  models. 

For  the  graphite  polyetherether  ketone  (Gr/PEEK)  tensile  coupon,  the  ratio  is  3.97  x  10“^. 
Thus,  the  tensile  coupon  behaves  materially  nonlinear  almost  from  the  onset  of  loading. 

For  the  graphite  epoxy  models,  the  ratio  is  2.79  x  10'^.  Similarly,  these  problems  should 
exhibit  significantly  altered  global  displacement  responses  due  to  the  inclusion  of  nonlin¬ 
ear  material  behavior.  When  the  ratios  are  larger  (on  the  order  of  10'^),  plasticity  affect 
the  global  displacement  response  to  a  lesser  degree.  The  pinched  isotropic  cylinder  has  a 
ratio  of  0.9  and  behaves  in  a  manner  dominated  by  membrane  activity. 

For  those  shells  or  plates  exhibiting  e>  0.025  over  more  than  15-20%  of  the  outer 
surface,  the  presence  of  plasticity  dominates  their  response  and  reduces  their  stiffness  sig¬ 
nificantly.  Comparing  elaso-plastic  results  to  elastic  solutions  led  to  a  reduction  in  peak 
snapping  or  buckling  loads  of  18-45%  occurred  due  to  plasticity  while  the  displacement 
associated  with  the  snapping/buckling  load  increased  by  12-27%.  The  combination  of  a 
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decrease  in  load  with  an  increase  in  the  displacement  associated  with  the  peak  load  indi¬ 
cates  a  significant  "softening"  effect  due  to  plasticity  which  is  expected. 

The  additional  computational  burden  of  the  cubic-nonlinear  strain-displacement  rela¬ 
tions  is  somewhat  significant  when  spherical  geometry  is  added.  The  most  simple  nonlin¬ 
ear  HTSD  theory  is  ClOO  which  has  13866  lines  of  code.  By  comparison,  when  spherical 
geometry  is  included,  the  simplest  nonlinear  HTSD  theory  is  SlOO  which  has  18175  lines 
of  code  by  including  all  the  curvature  terms  in  the  5;-direction.  When  the  elastic -plastic 
cubic-nonlinear  HTSD  theory  for  spherical  geometry  (G211)  is  included,  the  code  has 
37856  lines.  The  resulting  computation  burden  of  this  additional  code  is  significant  in 
terms  of  CPU  consumption  and  memory  requirement.  The  elemental  independent  formu¬ 
lation  of  stiffness  arrays,  with  Gauss  integration  in  the  plane  of  every  element  (for  the  36 
degree  of  freedom  element  usually  chosen,  25  Gauss  points  are  calculated  per  element  for 
exact  integration)  on  ever  iteration  of  every  load/displacement  increment  of  the  nonlinear 
problem(s).  Clearly,  this  formulation  of  a  higher-order  theory  is  practical  for  specialized 
research  of  this  nature,  not  for  routine  engineering  use.  Since  the  element  independent 
formulation  is  based  upon  arrays  of  strain  coefficients,  the  possibility  of  vectorizing  the 
code  exists.  In  this  manner,  a  more  efficient  higher-order  theory  may  be  of  practical  use. 

Due  to  the  total  Lagrangian  formulation,  and  the  allowance  of  large  strain/nonlinear 
material  behavior,  the  requirement  of  transforming  the  stresses  and  strains  from 
Lagrangian  to  Cauchy  and  back  to  Lagrangian  was  necessary.  This  is  due  to  the  assump¬ 
tion  of  an  incremental  flow  theory  which  is  requires  a  Cauchy  reference  frame.  To  accu¬ 
rately  predict  the  stress  field,  which  is  secondary  in  nature  for  a  dispalcement-based 
Lagrangian  formulation,  requires  very  refined  meshes.  These  refined  meshes  require  a 
substantial  increase  in  computer  times.  For  the  elastic  analysis,  stress  was  not  usually  cal¬ 
culated  because  of  the  additional  expense  in  CPU  time.  To  accurately  measure  the  stress 
at  any  node,  the  quasi  three-dimensional  stress  field  is  calculated  at  each  Gauss  point,  for 
every  layer,  and  then  integrated  to  determine  the  stress  at  each  Gauss  point.  Thus,  for  the 
36  degree-of-freedom  element,  with  a  total  of  25  Gauss  points  per  layer,  and  a  minimum 
of  eight  layers,  let  to  a  total  of  40  constitutive  Gauss  points  being  calculated.  Comparing 
the  run  time  between  an  elastic  and  plastic  analysis  for  the  same  shell  model  usually 

resulted  in  an  increase  of  CPU  time  by  a  factor  of  5.  This  is  due  to  updateing  the  [k], 
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[A^i  ],  and  [i^2  ]  stiffness  arrays  for  every  iteration  in  terms  of  displacement  and  the  consti¬ 
tutive  relations.  In  other  words,  an  elastic  problem  may  take  8  CPU  hours  to  solve  on  a 
SPARC  10  workstation,  the  same  problem  using  nonlinear  material  theory  would  take  at 
least  40  CPU  hours  on  the  same  workstation.  The  author  contends  using  a  stress-resultant 
based  finite  element  formulation  with  an  updated  Lagrangian  approach  would  be  more 
efficient.  By  solving  for  the  stresses  directly,  and  using  a  Cauchy  oriented  material  sys¬ 
tem,  reduces  the  computational  burden  of  tracking  stresses  and  transforming  them,  cor¬ 
rectly,  between  the  Cauchy  and  Lagrangian  material  axes  systems.  For  each  problem 
presented  in  Chapter  6,  the  author  has  specified  the  convergence  tolerance,  V,  the  element 
mesh  used,  and  the  number  of  displacement  increments  (and  the  increment  size)  used  to 
achieve  a  solution.  Depending  on  the  geometry  of  the  problem,  the  material  properties 
and  boundary  conditions,  the  development  of  plasticity  varied  from  problem  to  problem. 
Hence,  from  an  elasto-plastic  analysis  the  criteria  for  the  numerics  changed  from  one 
problem  to  the  next. 

The  theory  developed  and  presented  in  this  research  adequately  predicts  the  changes  in 
global  displacement  response  of  isotropic  and  quasi-isotropic  plates,  cylindrical  and 
spherical  shells.  It  is  a  total  Lagrangian  finite  element  formulation  that  incorporates  a 
quasi  three-dimensional  material  theory  and  models  orthogonal  plates  and  shells.  The 
inclusion  of  material  tranformation  matrices  within  the  cubic-nonlinear  HTSD  theory 
resulted  in  a  more  flexible  response  prediction  for  deep  shell  problems  during  the  collapse 
phase.  Similarly,  the  nonlinear  material  cubic-nonlineaer  HTSD  theory  provided  a  more 
flexible  response  prediction  for  both  deep  and  shallow  shells,  as  long  as  the  ratio  of  yield 

stress  versus  modulus  of  elasticity  was  greater  than  10'^.  However,  due  to  requirement  of 
transforming  the  stress  state  between  Lagrangian  and  Cauchy  reference  frames,  to  satisfy 
the  incremental  flow  theory  requirement,  a  significant  increase  in  CPU  time  occurred. 
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Appendix  A.  Arbitrary  Shell  Strain-Displacement  Relations 


The  arbitrary  shell  is  described  in  terms  of  a  curvilinear  orthogonal  coordinate  sys¬ 
tem  aligned  with  lines  of  principal  curvature.  Displacement  within  the  shell  is  assumed  to 
be  of  the  form 

U  =  +  M2^2 “3^3 

where  the  orthonormal  and  aligned  with  principal  lines  of  curvature.  The  direc- 

tion  of  ^3  is  deterined  by  the  cross  product  of  and  ^3  •  The  components  of  displace¬ 
ment  in  the  1-,  2-,  and  3-directions  are  assumed  to  be  unspecified  functions  of  the 
curvilinear  coordinates  yj,  y2,  and  y^.  The  shell  shape  factors  hj  and  h2  are  general  arbi¬ 
trary  functions,  specifically:  hj  =  hj{yj,y2^yA,  h2  =  h^=\. 

A.l  Midsurface  Strain  Components  for  the  Arbitrary  Shell 

The  strain  equations  listed  below  are  the  linear  and  nonlinear  parts  of  the  strain  com¬ 
ponents  for  the  case  of  an  arbitrary  shell.  The  £55  component  is  assumed  to  be  zero  for 
this  shell  formulation.  Contracted  notation  is  used,  where  £;  =  £;;,  £2  =  £22*  ^4  -  ^23>  ^5  - 
£75,  and  £5  =  £72- 


^IL 

=  (u^  ^  -H  h-^  2^3)  +  (^1  2^2^  (^1^2^ 

(A.2) 

^2L 

=  (^2  2'^  ^2  3^3) /^2'^  ^^2 

(A.3) 

^4L 

=  +  (W3  2-^2,  3^3^  ^^2 

(A.4) 

^5L 

=  3+  (“3^  1  -^1,3^3) 

(A.5) 

^6L 

=  2^^2  ^2  l^^l  ~  ^^1  2^1  ^2  1^2^  ^  (^1^2) 

(A.6) 

A-1 


(A.7) 


'\NL 
2 


{h 


l,3(“l,3“3  “l“3,  +  1 

0  \  -I  /  o  \  ’ 


+  u 


3, : 


+  ^1,  sU^u^)  /yh^h^  j  +  +  «3  J/l  Ih^h 


2,2 


1^1  r  2  2 

2A^L  “  (^2,  3  ^“2,  3^3  “  “2^3,  2^  ^  '^(^^2;  ''■  ^3  L“l  2  “2  2  “ 


+  h. 


2 

^3,: 


2,  3l“2  +  “3J  J  \  1  (“1  «2,2  -  “l,  2“ 


■^^2,  3“l“3)^V^1^2j‘''^2,  1^3l,“2‘'‘“3  )/[  2/ij/i 


2,2 


ANL  -  t''l,2“l,3  +  “2,2“2,3  +  "3,2“3,3  +  ''2,3(“2,3“3 
2"3,  3>  J  /*2  +  (*2,  1  (“l"2,  3  ■  "1,  3"2)  >  ^  <*1*2^ 


-  u 


'SNL  -  l“l,3  +  “2,l“2,3  +  “3,l''3,3  +  ^l,3(''l,3“3 

-1^11/3  3)]/^!+  (Al  2(^1  3«2-«i«2.3))/(^^2) 


hNL  -  l“l,2  "^“2,  1^2,  2 +  “3,  1^3,2 

+  /Zl  3  («!  2M3-M1M3  2)  +^2,  3  (“2,  1^3  ~  "2^3,  1^ 
^1,  3^2,  3“l“2  ^  ^  (^1^2^ 

+  (/i2^  J  («i“2,  1  “^1, \^2~^l,3V3^^  ^ 

2(^1,  2^2 2“^2,3“l"3^^^f^l^2 


.^1,2^2,  ■'■“2; 


1/1 


(A.8) 


(A.9) 


(A.  10) 


(A.  11) 
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A.2  Mid-Surface  Strain  Components  for  the  Arbitrary  Shell  with  a  Quartic 
Displacement  Field  Assumption 

The  expressions  listed  in  the  previous  section  represent  strain  componets  for  an  arbi¬ 
trary  shell  where  displacement  components  are  unspecified  functions  of  the  coordinates 
(y;,y2’>’j)-  Por  ^  shear  deformation  theory,  the  displacements  are  assumed  to  be  functions 
of  the  thickness  coordinate.  Specifically,  for  a  shell  with  radius  in  the  y;-direction  and 
radius  R2  in  the  y2"direction,  we  shall  assume  a  quartic  series  expansion  uj  and  U2  as 
shown  below.  The  uj  component  is  assumed  to  be  constant  through-the-thickness  of  the 
shell. 


2  3  4 

=  u(l-y^/R^)  -i-\}/j3;3  +  (l)jy3  +  Yjy3-i-ejT3 

2  3  4 

^2  =  V  (  1  -  T3//?2)  V2>'3  +  ^2^3  ®2>'3  ‘ 

u^  =  W 


If  one  substitutes  these  expressions  for  the  displacements  into  the  previously  derived 
expressions  for  strain  components,  the  following  expressions  are  obtained  for  the  strain 
components  x/’,  where 


and 
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(A.  14) 


(A.  15) 
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X2  =  I"*"!  2^1,2'"'''2,2®2,2-"4,3‘5'2®2)''r2j''Ul,2-^^^ 

-ifj  je,  +  Vi  2ll-'('‘i''24(''2.i'*i®'*''^  ^ 


Xy  =  lVi,201.2  +  X2,292.2+''2.3'2''2/  \-2J  ^ 

-"7,2  iTl,  202  -  Ti92,  2-X2.  201  +  X201, 2I  )  4''i'‘2 

+  (4,i(Xi01  +X202))7''i'‘2) 


/  Ih. 


^  .+0?  Ayi^h^)--  1,2^2 


X2  =1^2^«2,2^>3-2/V-;2;  .  i , 

-  0102, 2I  )  /('‘l'’2]  ('’2.  l7>  ®2))''7i''2 


y®  =  [«,(v'i-«/Ri)+\2‘'t'a-''^^2>l^'*2 
-  (^2  1  [v(Vi-«/Kl)  -«(¥2-'’/^2>1^^<''i'‘2^ 


(A.55) 


(A.56) 


(A.57) 


(A.58) 


A-11 


(A.59) 


’‘V  "  tv, -«/«,)  +V2,2(V2-v/«2) 

-u,^{\]f^-u/R^)  -v,^{\if^-v/R^)  +2((1)jM2  +  ^2^2^ 

+  3Ct)2w]  /hr^  -  (h^  j  [2  ((l)jV  -  ] )  /  (h^h^) 

2 

^  *-^1’  2  +  ^2,  2  (^2  “  ^^^2^  +  ^  (^-60) 

-u/R^)  +^^{Mf^-v/R^)  +3(YjM2  +  Y2^2^  +'ih^,^'^^w]/h^ 

-  (^2,1  [<t>i  (¥2-v/^2^  +3(YjM  +  Y2v)])/(/Ij/z2) 

5^4^^  =  ['^1,  2  (^1  ~  +  Y2,  2  ('t^2  "  ^^^2^  +  ^  (^1^1,  2 

"*"^2^2,  2^  +  3  (y^  (\|/j2~^  2^^1  ^  "*"^2(^2  2~  ^  2^  ^2)^ 

+  4  (GjM  2  +  ^2^,2^  +  4/I2  262^3  ^^2  “  ^^2  1  (V2~'‘^/'^2^ 

-  Y2  (¥1  -  u/R^) )  +  4  (0jM  +  e2v)  ] )  /  {h^h^) 

4 

^4^^  =  2  “  “^^1^  +  ®2,  2  (¥2  -  v/^2)  +  2  (^1  Yi,  2  +  ^2'^2, 

+  3  (Yi(t)i  2  +  Y2<t>2, 2)  +  4  (Gj  (\|/j^  2  -  ^y^i) 

+  02  (\|/2^  2  ~  ^,2^^2^  )  ^  ^^2  “  1  tYi<l>2  -  Y2^1  +  3  (0  J  (11/2  -  v/R^) 

XV=  t2(<t'i>|)i,2  +  't>2‘l>2,2)  +3(Tj7,_2  +  T2T^2,2'  +4(e,(|)j_2  (A.63) 

■*■  ®2^2,  2)  ^  ^^2  ~  ^^2,  1  (®1^2  “  ®2^1^  ^  ^  ^  (h^h^) 


A-12 


(A.64) 


-  (^2,i[0iY2-Y2^i])/(/^i/^2) 


0 


+  {h^^^[v{\^^-u/R^)  -u{\^^-v/R^)])/{h^h^) 


(A.65) 


(A.66) 


1  +  ^2,  1  (V2"^^^2)  ““,1  -“/-^l)  (A.67) 

-  V  j  (Xj/^  -  v//?^),  +  2  ((t)jM  j  +  (1)2V  p  +  3(])j  w]  /h^ 


1  ^2, 1  (^<^2  " 

+  2  (([) j  (\|/j  -  +  (t)^  (Vj/^  -  v/R^) ) 

+  3  +  y^v  j)  +  3/ij^  3Yj  w]  /h^  +  {h^^  2  t(l>i  (¥2  -  v//?2) 

-  (t)2  (¥1  -  u/R^)  +  3  (YjM  +  Y2V)  ] )  /  {h^h^) 


(A.68) 


=  ^^1,  1  ('t'l  -  «/^l)  +  T2,  1  ( ^2  -  ^/^2) 

+  (t)2(l)2,  1)  +  3  (Yj  (¥1^  1  -  uyR^)  +  Y2  (\l/2^  j  -  vyR^) ) 
4  (©i^  1  +  ©2^1)  +  36  j w]  //zj  +  (/z^^  2  [2  (Yi  (¥2  - 

- 12  )  +  4  (0jM  +  02 v)  ] )  /  {h^h^) 


(A.69) 


A-13 


(A.70) 


Al  =  f®l.  1  f'l'l  -  "/^l)  +  02,  1  ( V2  -  V/Xj)  +  2  ($,Y,_  , 

+  1>2y2,l)  +3(7j(|)(_|+y2<|)2,i)  +4(ej(v|/j_,-«,/Rj) 

+  02  (V2_,-Vi/fi2)  )]//!,+  ('!i,2[yi't>2-y2‘l’l  ■ 

+  3  (0;  (V2  -  v/fl2)  +  02  (V,  -«/«,))])  /  (/!j/!2) 

(A.71) 

“  f^^‘l’l‘l’l,l'^'t’2‘f'2,P  +0(^1  Y],  1+7272,  1)  +4(0, l|),  ,  (A.72) 

+  02<t)2,  ,)  ] /A,  +  (/!,_  2  [2  (6,<|)2  -  02lt>i)  ]  )  /  (Aj/lj) 

^  1+7262,1)  +4(0,7,  ,+02Y2_, )]//!,  (A.73) 

+  (*l,2[6i72-72<l>,l)/(*,A2) 


=  4(6,e,,,  +  02e2,,)/A, 


(A.74) 


(A.75) 


A-14 


(A.76) 


+^1(^2,  2 

-v^R^)  +^2(11/2 

-  w  2  (Xl/j  -  )  +  ^2,  3  (^  (¥2,  1  -  ■‘^,1/^2^  ~  ^,1  (¥2  -  ) 

~^l,  3^2,  3  ^^<^2  ~  ^^^2^  ■'■  ^  (¥1  -^/Ri))]/  (h^h^) 

-  ^  [u  .^  (\|/2  -  v/R^)  -  u  (\\f^^  j  -  vyR^)  -  V  ^  (v|/j  -  u/R^) 

+  V  (\|;j_  J  -  «_j/fi,)  +  3«,  (^2  -  v/«2)  ] ) 

+  (h^^  2  [«_2  (V2  -  I’/Sj)  -  “  (V2,  2  '  ’',2^^2)  “  ’',2  ('I'l  -  “/^l) 

+  V  (»!<,_  2  -  M  j/fi,)  -  />2, 3W  (V|/,  -  M//fj)  ] ) /[h\'j 

-  (/i,  2*2,  1  [2(«(Vi-«//Jj)  +v(V2-v/«2))])/(/!j/l2) 


2  r 

=  L",l<‘t'l,2"'l'i^2"'^l>  +“,2('l’l,l-V,_,/«i)  +v,((|)2  2  (A.77) 

-  V2,  2/^2)  +  '',2  (<>2.  1  -  V2, 1/^2)  +  Vi,  1 V,,  2  +  V2,  1 V2,  2 

+  (u^U2)/R^  +  ('',i'’,2)/^2'^*l,3(«'<l>l,2'''^,2‘l’l> 

+  /<2_  3  (IVI|)2_  I  -  ,<1.2)  +  A,_  3A2_  3  («  (<I>2  -  V2/-«2>  +  V  ((|),  -  V,/fij) 

+  V,V2+  («v)/(fi|ff2))]/(*i*2)  -  ('>2,1  t“,l  (lt'2- V«2) 

-h((|.2  ,-V2_i/K2)  -'',i(<I>i-V,/«i)  +'’(‘I>i,i-Vi,i/«i) 

+  (yi_iV2-ViV2.l)  +  iu^v-uv^)/(R^R^)  +*i_3W<|)2])/(*i/j2) 

+  (*i,2[“,2(‘I>2-'I'2/^2)  -“(1>2,2-'I'2,2/-^2)  “  V  2  (<t'i  - 


+  v((|)j_2-¥i,2/'^i)  +  ('I'i,2V2-ViV2,2)  +  («  2'' “  “'',2)  ^  (^1^2> 

+  *2,  )  /(^X)  -  (''1, 2'’.2,  1  [2  (“  ('l>i  -  V/K,) 

+  V  ((|)2  -  <1/2 /^2^  )  ■•■  +  '’^/S2  +  vX  )/(*l*2) 


A- 15 


(A.78) 


+  ‘I’2,i(H'2,2-V'^2)  +‘l>2,2(V2,l-v,/fi2)  +«iTi,2 
■^“,2'l'l,  1  +'',iV2,2  +  '',2'''2,  1  ■^'’1,3  ('*'Tl,2-^2''fl) 

+  /ij,  3  («'T2.  1  -  »',iY2)  +  *1,  3'<2,  3  (1>1  (Vj  -  v/fij) 

+  <tl2('|/, -«/«,)  +«y2  +  VT,)]/(/!,/!2)  -  (*2,  1  [‘I’l,  1  ('1'2 

-  v/fij)  -  <tl,  (<|<2,  1  -  V  - 1>2,  1  (Vi  -  M/Sj) 

+  (|)2  ( <|/ 1  ,  -  «  ,  //? , )  +  Yi_  1 V  -  Y,  V  ,  -  y2_  , «  +  Y2  «  , 

+  *1  3WY2])/(*i''2)+  (*l,2t'l’l,2*'t'2“''^^2)  “ 1  '*'2,  2 
“  “  ^2,  2  +  ^2  2  “  ^  2^ 

-  "^l  *',2  -  \  2“  +  Y2«  2  +  \  3»’Yi])  /(  *?*2) 

-  (*!_  2*2,  1  [2  ((|),  (Vi  -  «/ff ,)  +  (|)2  (V2  -  v/fij) 

-«Yi-vY2)  ])/(*!  *2] 


A-16 


=  t“,l(®l,2-Tl,2/«l)  +",2(ei,l-Tl,l/«l) 

'',1  (®2.  2-\  2/^2)  +  >',2  (02,  1  -  \  l/«2)  +  t'l,  2 
+  ‘•’2.  l‘l>2,  2  +  Vi,  iTi,  2  +  V,,  2T1,  1  +  V2. 2V2.  1  +  V2.  1 Y2,  2 

+  *1,3("'6i,2-»',20i)  +*2,3  (>^02,1 -’*',102) 

+  /!,_  3/!2_  3  {«  (02  -  72/^2)  +  >'  (01  -Tj  /«i) 

+  <l>l'l>2  +  ¥172  +  V2Y1)  1  /  (*,*2)  -  (*2,  1  [",1  (02  -  V2/«2) 

-“(02.l-l'2,i/«2)-’',i(0i-Yi/^l)+v(6j  ,-Y,  j/Xj) 

+  (‘l>l,l't'2-‘l>l‘l>2,l)  +'I'i,i'''2-'I'iY2.i-¥2,iTi+V2Vi,1 
+  *1,3’’'02()/(*X)+  (*1,2[",2(02-Y2/^2)  -“(02,2 
-Y2_2/«2)  -’',2(01-Y,/fii)  +’'(01,2-Yi,2/«i)  +  ('t'i,2‘l>2 
-<l>l'l>2,2)  +'I'i,2Y2-'I'iY2,2-'I'2,2Yi+'I'2Yi  2 
+  *2,  3’’'0l]  )  /[*l*2 J  -  1*1, 2*2,  1  [2  («  (0,  -  Y,/«,) 

+  ’’(02-Y2/«2)  +'l'iYi  + '1/2^2)  +'t’N‘l>3M*l*2) 


(A.79) 


A-17 


(A.80) 


V  =  1  +  ei.afv,,  1  -« i/fi,) 

+  02,  ^(V2,2-  '’,2/^2)  +  02, 2(^2,,-  V  1/^2)  +  ®1.  lYl,  2 
®1,  21^1,  1  +  ®2,  1V2, 2  +  ®2,  2^2,  1  +  *1,  3*2, 3  <®1  (^2  -  v/R^) 

+  ©2  (\|/j  -  u/R^)  +  (1)^Y2  +  02^1)  ]  /  (h^h^) 

-  j  [0  j  j  (X|/2  -  v/R^)  -  ^  -  vyR^) 

~^2,  1  (¥1  +02(¥i^  j  -  m  l‘t>2-yi^2,  1 

-I2,  1^1  '^'^2^1, 

-  ©i  (vi/2^  2  -  ^y^2^  -  02. 2  +  02  ('t'l,  2  “  ^y^i) 

+  ^1,  2<^2  -  Ti<I'2.  2  -  T2,  2<I>1  +  Y2<l>i,  2! )  /[h\] 

-  (/!j_  2^2.  1  [2  Oj  (Vj  -  tt/fi,)  +  02  ( V2  -  v/fl2) 

+  Yl't'l+Y2‘l'2)l)/(*^*2) 

=  t''^l,l'''l,2  +  Y2,iy2,2  +  't’l,iei,2  +  't'i_2ei,l+‘l>2,l02,2  (A-81) 

+  4.2,  202,  1  +  *1,  3*2,  3  (Y1V2  +  ‘t'102  +  <l>2ei)  ]  /  (A, *2) 

-  <*2,  1  lYl,  1  Y2  -  Vl Y2,  1  +  <!>,,  , 02  -  l-i 02,  1  -  <l>2,  1 01 

+  f  2®1,  ll )  /(*^2j  <*1, 2  [Yi,  2Y2  -  Y,Y2,  2  +  f  1,  2^2  -  'I’ie2,  2 

-4)2,201 +<l>2ei,2l)/(*X)-(*l, 2*2,  1K  +  Y2  + 2  ((|>i0, 

+  W]]/(*"*2) 


A-18 


(A.82) 


^6^^  “  1®1,2  ■^'^1,2®!,  1  ■‘■'^2,  1®2,2  ■^'^2,2®2,  1 
■^^1,3^2,  "  ^^2,1  1®2  "  ^1®2,  1 

“'^2,  1®1  ■*■'^2®!,  ^^\,2^'^\,2^2~^\^2,2~^2,2^l 

■*"  ^2®1,  2^  ^  ^^(^1^2^  “  ^^1,2^2,  1  ^  ^  "^(^1^2) 


1®1,2‘‘'\  1®2,2‘''^1,3\3 
-  2  [02^  1®2“®1®2, 1^  )^(^1^2)'^  ^^1,2  f®l,2®2 

~  ®1®2,  2^  ^  ^(^1^2)  “  (^1,  2^2,  1  [®1  ■'■  ^2]  )^(^1^2) 


(A.83) 


A.5  Approximation  of  60  Shell  Shape  Factor  Functions  with  Second  Order  Taylor's 
Series  Expansions 

Most  of  the  expressions  listed  in  the  previous  section  contain  shape  functions  hj  and 
h2  or  their  derivatives.  If  one  factors  out  all  these  functions,  there  are  60  different  combi¬ 
nations  possible.  For  a  shell  with  radius  Rj  in  the  }>;  direction  and  radius  R2  in  the  3^2 
directions,  the  shape  factors  h j  and  /12  shown  below 


=  A^il-y^/R^)  (A.l) 


where  A  j  =  and  A  2  =  Jl^2  ^^e  the  Lame  parameters  of  the  surface.  The  60  pos¬ 

sible  combinations  of  the  functions  are  listed  below  along  with  their  quadratic  Taylor's 
series  approximations. 
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T,2 


R 


1,2 


R. 
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R 


1,2 
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2 

y3 
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A-19 


A-20 


(A.8) 


(A.9) 


(A.10) 


(A.11) 


(A.  12) 


A-21 
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h 


2  = 


R 
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^2 
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2,1 
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r: 


2. 
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V 
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2 
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(A.  13) 


^13  = 


h 


2,1 


2  = 


h 


2,1 


2A 


2,1 


\  i-  1^ 

2.iUrv 

V  ^2  J 


\i(  \  3^2  ^2h,\ 


f 
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2 
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(A.  14) 


^14  = 
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2ii^ 
2  = 


h 


(A 


\  ^2 


2,3  J 


^2 
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(^3-1) 


(^2,3  1) 
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2A 
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(/?2^3  3)^ 

R. 
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2 
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2) 


y3 


(A.  15) 


A-22 


(A.  16) 


(A.  17) 


(A.  18) 


(A.  19) 


^19  = 


h 


2,1 


h. 


^1, 1 

^2.1, 

1 

1  ^  "^1^1, 1 

T 

A,  ( 

2,1 


f  1 


R 


1  ^  ^2^2, 1 

“  + - h: 


2^ 


2 

^3 


>^3 


(A.20) 


^20  = 


s- 

H-* 

to 

1! 

"^1,2 

+ 

^1.2, 

'  1  1  ' 

^1^1,2 

^2 

1 

CN 

_ _ 1 

^2  i 

r  2 

A^S, 

+ 


h2f  1  ^1^1,2 


^2^2ur^ir,  £ 


2“1^2 


^3 


>^3 


(A.21) 


fill  = 


1 

1 

II 

CN 

^l^2_ 

+ 

A 

1^2"' r'2 


>^3 


r\^r,r^^rI 


2 

>^3 


(A.22) 


fill  = 


h 


1,3 


/i. 


^2V 


ll' 


1,3^  1 


^2  ^1 


(R 


A^R 


2“1V 

(R 


1,3  _1 

~  R 


An 


/? 


2yj 


^3 


1,3/  1 


_  _  J_ 

A2K2U2“«,. 


^2^1^2V 


/? 


1,3  _1 

~  R 


An 


1 


2/J 


2 

>^3 


(A.23) 


A-24 


(A.24) 


h 


^23  = 


2,3 


A  ^ 

A,,  3 


'2.3/  1  1 


^2^ 


R 


2,3  1 


^2  ^lyj 


+ 


R 


2,3  1 
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'2,3/1  1 


^2  ^1/J 


2 

>^3 
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h  h 
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(A.25) 
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+ - ^  +  - 


^i«i 


2  2 

A,/?^ 
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/ 
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>^3 


^25  = 
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(A.26) 
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(A 


aIr\ 
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i? 
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^3 


A-25 


(A.27) 
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(A.29) 
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If  the  standard  assumption  of  no  warping  through  the  thickness  for  shell  theory  is 

applied,  then  Ay  3,  A2  j,  Rj  j,  and  R2  3  are  all  zero.  Thus,  the  60  independent  fyi  functions 
reduce  to: 
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Appendix  B.  Strain-Displacement  Relations  for  a  General  Spherical  Shell 

Elemental  Code 

The  strain-displacement  relations  of  this  appendix  are  for  the  case  of  a  spherical 
shell  with  a  radius  of  =  /?2  =  ^-  They;  coordinate  is  the  circumferential  distance  dyj  = 
RjdQj  =  RdQ  and  the  y2  coordinate  is  the  circumferential  distance  dy2  =  The 

kinematic  displacements  within  the  shell  are  assumed  to  be  of  the  form 

^  ^ 

U  =  ^3^3  ’ 


where 
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(}'py2’^3^  ^  u(\-Dy^)  +\\f^y^  +  k(w  .^-\-\^^)y^ 
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“3(>'l’>'2^  = 


The  seven  degrees  of  freedom  u,  v,  w,  W  j,  W2,  V]/;,  and  \)/2  are  functions  of  midsurface 
coordinates  (yh  >’2)  The  y,-  are  rotations  about  the  normal  and  D  =  l/R j  =  HR,  C  =  1/ 
Rl  =  HR,  and  k  =  -4/(3/i^).  The  full  in-plane  nonlinear  spherical  shell  strain-displacement 
relations  with  transverse  shear  flexibility  are  shown  in  Eqs  (B.3a)-(B.3e). 

2 


'  n  ^ 


-I- ^29*^2 I  2  J  ^^1  j  ^^3) 


f 

2 

+ 

1  2  J 

(^2  1  ~^\9^\)  ^ 

fl-i 


\  ^  J 


(u^  j  -  Dmj) 


82  =  ^17^2  2  ^36^1 


fl 


11 


-I- 


^^11^ 

V  2  ; 


V  2  y 

r .  ^ 


(^1  2  ~  ^20^2^ 


11 


(^2  2  +  ^20^1  +  CM3) 
2 


V  ^  ; 


(M3  2  -  Cm^) 


(B.3a) 


(B.3b) 


B-1 


^4  =  ^17 


Ej  =  ^18 


Cu^  2  +  ( 1  “  Cy-d  ^0  ^  +  Cu 


3^  2,3  2 


Cm^  1  +  (1  “^3^3)  ^1  3  ■*■ 


(B.3c) 


(B.3d) 


8g  =  ^TnMj  2  +  ^18«2,  1  “^36^^2“'^29Wi 


+ 


+ 


+ 


r .  ^ 
^21 


V  ^  y 
'^21^ 


I  2  j 

f  f  \ 

fill 

I  2  J 


(Mj  2-fl2QU^{u.^  fl\()U2  + Du^) 

( ^2  {1  \^ii  j )  ( ^2  2  -^20^ Cu^) 
(u^  ^-Du^)  (u^  2 -CM2) 


(B.3e) 


where  Uj,U2,  and  Uj  are  given  in  Eq  (B.2).  For  this  case,  the  60  shell  geometric  functions 
fli  are  simplified,  because  hj=\  and  the  quadratic  terms  of  the  expansions  are  neglected. 
The  simplified  nonzero  functions  of  Appendix  A  are  listed  in  Eq  (B.4). 


The  strain  equations  listed  below  are  the  parts  of  the  linear  and  nonlinear  strain  com¬ 
ponents  for  the  general  spherical  elemental  codes.  Contracted  notation  is  used,  where  £/  = 

ej],  £2  =  822’  ^3  =  ^33’  £4  =  ^23’  ^5  =  ^75’  ^6  =  ^J2-  The  Strain  components  e,-  are  given 

by  the  series  expansion  shown  in  Eq  (B.5). 
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fl2  =  -DO+Dy^) 

*3  =  1+  203-3 

fli  =  (\  +  2Dy^) 

*7  =  0^ 

fl9  =  -C(l  +  Cy^) 

*11  =  1+2033 

tll4  =  C^(l+2Cy^) 

*15  = 

fin  =  1  +  Cyj 

*18  =  1  +03-3 

*21  =  1+  (C  +  D)j-3 

*22  =  -r)  { 1  +  C33) 

*23  =  -C(1  +  D>'3) 

*26  =  CD 

*32  =  1  +  Dy^) 

*24  =  -r>  ( 1  +  2033) 

*39  =  C^1  +  C)>3) 

*42  =  -C(1+2C33) 

fl45  =  -D(l+  (C  +  D)y^)  A46  =  -C(1  +  (C  +  Oyj) 
fl5l  =  CD(l  +  Cy^)  fl52  =  CD  (1  +  Dy^) 


fl60  =  CD(1  + (C  +  D)y^) 

n 

/7  =  0 

The  nonzero  xf  are  listed  below  for  each  component  of  the  general  spherical  shell  the¬ 
ory  code.  The  general  cylindrical  shell  theory  is  given  by  setting  Rj  =  oo  thereby  causing 
D  =  0.  Thus,  all  terms  containing  D  are  neglected.  The  general  plate  theory  is  given  by 
setting  Rj  =  oo  and  i?2  =  °°  >  thereby  D  =  0  and  C  =  0  result.  Thus,  all  terms  containing  D 
and  C  are  neglected.  Note:  for  shell  theory,  £3  =  0 
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2 

0  ^  ,  2  2, 

X|= 

(B.6) 

If  2  2  2  ^ 

+  2^«i  +  Vi+w^iJ  +  Mi 

1  3  2  2 

=  D  w  +D  [m(w  j  +¥i)  -  (1  +M  j)  w] 

+  D  +  \\f^)  -  w\|/^^  j]  +  (D  -  C) 

+  (l+«i)Vi,i  +  ViV|/2  j 

(B.7) 

2  3  4  2  ^ 

Xi  =  ■"2^  ^  ^  [2(m^w-mw^)  +m\|/j] 

2  ”  1  f  2  2  V 

+  D  l)  -  (1 +“  i)“  1 + 

+  2  (C -4D)  +  D  [  (1  +  M  j)  \|/j  j] 

+  (2Z)-C)v_|V2_,  +  i(v^_,+<;/^  ,) 

(B.8) 

x\  =  +d[d^(^m^j +  \|/jj  +  C^v^J 

2 

-  2D  (Dm  ^\|/^  ^  +  Cv  ^  +  D  ku{w  \j/^) 

f  2  ’  2  ^  ’ 

+  ^  +  \|/2  J  +  D/:  (w  j  +  \|/p  -  w  ^  +  \|/^^  j)  ] 

(B.9) 

+  M  ( 1  +  M  j)  +  ¥i,  i)  +  V  1  (w  ^2  +  ^1^2,1)] 

4  3  2 

Xi  =  D  k[u(w.^  +  \\f^)]  +D  /:[  (2vt;^j +\j/j)  (w^j+\|/^) 

-2w(w^^j,  j)]  +Dfc[  (1  +  M  j)  (w  11  +¥i^  l)] 

4-’  (2D-C)^[v^^  (^,12  "^^2, +^[^1^  1  (^,11  +^^1,  l) 

+  V2  j(w_i2  +  y2,i)] 

(B.IO) 
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5  4  3 

Xj  =  -2D  ku{w  ^  +2D  k[\\f^  (w  j  +\)/j)] 

+  (V2,i-Cv  i)  (v.'jj  +  'l'a,!)! 

(B.ll) 

6  (Dk)^  2  k^r  2 

X,  =  2  («',i+¥i)  +  I  [<”'.11 +¥,,,) 

(B.12) 

+  ('*'  ,2  + ¥2,1)  ] 

732  2  2r  2 

X^  =  D  k  (w^^  +  V(r^)  +Dk  [(w' n 

(B.13) 

+  (w  12 +¥2,1)  _ 

0  2  2 

X2  =  “^(^  +  w  )  +C[vW2- (1 +V2)w] 

(B.14) 

If  2  2  2'l 

■"2l“,2  +  ^2  +  ^2J  +  '',2 

X2  =  [v  ( w  2  +  11/2)  -  ( 1  +  V  2)  w] 

2 

+  C[w2(W2'''  ^1^2^  ”  ^^2  1}  ■*■  ( C"  -  D)  M  2 

(B.15) 

“^^,2^ '•^2,  2 
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2  3  4  2  ^ 

X2  =  “2^  V  +C  [liv^w-vw^)  +  v\j/2] 

+  [2  (W  2V2  -  WV|/2_  2)  -  (  1  +  V  2)  V  2  V^) 

D  2 

+  2  (£)  “  4C)  M  2  +  <^  [  ( 1  +  V  2)  \}/2  2] 

+  (2C-D)«2Vi,2  +  5(v^,2  +  't'2,2) 

(B.16) 

(B.17) 

2 

-2C(Cv2M^2  2  ■*''^“2^1  2^  ^  kv{w2  +  ^2^ 

+  d[  l|/,_  2  +  Vi,  2)  +  [“',2  (”',2  +  't'2> 

-  w  (w  22  +  ¥2,  2)  1  ^  2  (^,12  ■'■  2^ 

+  (1  +  v  ^)  (>^,22  "^^2,  2^^ 

4  3  2 

X2  =  C  ^[v(w2  +  V2^]  +C  /c[(2w2  +  V2)  (w  2  +  M^2) 

-  2w  (w  22  +  \l/2  2)  ]  +  C"/:  [  ( 1  +  V  2)  (w  22  +  ^2, 2^  ^ 

+  (2C-/))/:[m2(w^^2  + ^1,2^^  ■^^t^l,2^^,12'^^l,2^ 

+  \|/2^  2  (^,22  ^*^2,  2^  ^ 

(B.18) 

X2  =  -  2c\v  (w  2  +  \K2)  +2C^A:  [11/2(^  2  +  11/2)] 

+  2«[(V2  j-CV  j)  (‘^,22  +  V2,2> 

+  (V;_2-Dh_2)  («'.12  +  'I'i,2>1 

(B.19) 
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(B.20) 


6  (Ck)^  ^  2  2 

Z2  =  («'_2  +  Vj)  +  2"  L  (^12  +  V,,  2) 

+  (‘".22  +  V2,2)^ 

7  3  2  2  2  r  2 

x^  =  C  k  {w  ,^  +  \\f^)  +Ck  [(w' i2'^'^^1,2^ 

Z4  =  +  Vj 

X4  =  3/:(w2  +  M^2^ 

X5  =  Wi+l}/^ 

X5  =  3A:(w^^  +  \|/^) 

Xg  =  CDuv  +  D  (uw  2  -  M  2^^)  ■*■  ^  1  -  V  j  w) 

+  (»i«2  +  v,iV2  +  «',i«'2)  +“2  +  '',l 

X5  =  CD  [u  (w  2  +  \l/2)  +  V  (w  j  +  \|/p  -  w  (m  2  +  ] 

+  (C-D)  [  (I  +  u  u  2  -  V  +  V  2)  ]  +  {C  +  D)w  2 
+  D  (w  2\l/j  -  w\|/j^  2)  + 

+  (1  +“,i)¥i^2‘^“,2'*^1,  1  ^i'I^2,2'‘’  "^^,2^  ^2,  1 


(B.21) 

(B.22) 

(B.23) 

(B.24) 

(B.25) 

(B.26) 
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=  -  CD  (C^  +  CD  +  D^)  uv  +  (C  +  D)  [D  (mw  ^  «  2^)  (B.27) 

+  C  (vw  ^  -  V  ^w)  ]  +  CD  (Cu\^2  + 

+  (C  +  D)  [D  {u  2  +  w  2'^f^  -  2^ 

-  wxj/^^  j)  ]  -  CD  [  ( 1  +  M  2  +  1  ^ 

+  C[(l+M^j)\|/j  2  +  “,2^1,  1^  ■'■^t^,l'<^2,2‘^  ■*'^,2)'t^2,  1^ 

Xg  =  C^D^  {C  +  D)  uv  +  (C  +  D)  j^D^M  jM  2  ■*■  1^  2]  (B.28) 

-CD  (C^  +  D^)  +  v\j/j)]  -  (C  +  D)  [D(u  ^\\f^  2 

+  M  2¥i^i)  +<^(^,iM^2,2'^^2^1,2)^  +  CD  (C  +  D)  vi/^Xj/^ 

+  CDk  [u(w  2  +  ^2^  +  V  (w  j  +  \)/j)  ]  +  (C  +  D)  (n/^  jXj/j  2 

+  ^2,i'^2,2^  +  (C  +  D)/:(w  jW2-wWj  2) 

+  CA:  (w  ^\}/2  -  w\\f2  +  Dk  (w  2^!/^  -  wxj/^  2) 

+  ^  [  (1  +  (w^^2  +  't^i,  2^  “,2  ^"^,11  1^ 

+  v^i(w22  +  N^2,2)  +  (I+V2)  (’^,12  +  ^2,P^ 
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4 

Xg  =  CDk{Cu{w  +  +Dv(w  J +\}/j)] 

2 

+  (C  +  D)  k{w  ^w^~ww^  2)  +  {C  +  D)k[C{w 

(B.29) 

-w\i/2  1)  +£>  (w  2X1/1 -w\|/j  2i]  +CD^[\)/l  (w  2  +  \1/2) 

+  ¥2(^,1  +¥i)]  +Ck[(l  +M  j)  (w^  12  2^ 

+  « 2 («’,11  +  Vi,  1) ]  +  Dk[v  ^  (w 22  +  V2_ 2) 

+  (1  +V  2)  (xVj2'^'*^2,  +^[¥1^  1  (^,12 +  2) 

+  Vl,2(«',ll  +  Vi,,)  +V2,i(W22  +  'I'2,2) 

■*■ 'l'2,  2  (“',12  '•'2,  1*  ^ 

Xg  =  -  CD(C  +  D)  k  [Du  (w  2  +  ¥2)  +  Cv  (w  1  +  \|/^)  ] 

+  CD(C  +  D)k[\\f^  (w  2  +  11/2)  +  ¥2  (^,1  +  ¥1)  ] 

-D(C  +  D)^[(1 +M  1)  (vi^  i2‘^'*^1,2^  ■^“,2^^,11  ■'■'^^1 
-C(C  +  D)t[Vj(w_22  +  V2,2)  +  (l+'',2)  (“.n  +  Vz,!)] 

+  (C  +  D)<:  [Vj_  j  (w  j2  +  Vi,  2>  +  'I'l,  2  (“'.ll  +  Vi,  1) 

+  't'2,  1  (“',22  +  'l'2, 2)  +  '('2, 2  (“,12  +  ^2,  1 )  ] 

(B.30) 

Xg  =  CD/:[(w  1 +\i/i)  (w2  +  ¥2)] 

+  i^[(w_,2  +  Vi,2)(“,ll  +  M'i,,) 

(B.31) 

+  (“,22  + '('2,  2)  (“.U  +  Vj,!)] 

=  CD(C  +  D)k[  (w  1  +  \\f^)  (w 2  +  ¥2)  ] 

+  (C  +  D)^^[(w^^2  +  ¥i^2)  ^^,11  ■^'1^1, 1) 

(B.32) 

^^,22  ^1^2,  2^  ^^,12  ■'■  '•^2,  ^ 
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Appendix  C.  Strain-Displacement  Relations  for  Classical  Donnell  (SOXX) 

Elemental  Codes 

The  strain-displacement  relations  of  this  appendix  are  for  the  case  of  a  spherical 
shell  with  a  radius  of  Rj  =  R2  =  R.  The  yj  coordinate  is  the  circumferential  distance  dyj  = 
R ]dQ I  =  RdQ  and  the  y2  coordinate  is  the  circumferential  distance  dy2  =  /?2<5?02  =  RdQ.  The 
kinematic  displacements  within  the  shell  are  assumed  to  be  classical  Donnell  relations 
with  a  first-order  transverse  shear  deformation  theory  (FTSD)  and  of  the  form 

^  ^  — > 

U  =  u^e^-f-  Ur^e^  +  u^e^  ,  (C.l) 


where 


=  “(1 -^3^3)  +  w  1^3 

=  v(l -0^3)  +  w^2>'3  .  (C.2) 

M3(>'pT2)  =  ^ 


The  five  degrees  of  freedom  u,  v,  w,  w  y,  and  W2  are  functions  of  midsurface  coordinates 
(yi,y2)  only.  There  are  no  y,-  (rotations  about  the  normal)  due  to  the  classical  theory,  and 
D  =  l/R y  =  l/R  and  C  =  l/i?2  =  The  classical  Donnell  spherical  shell  strain-displace¬ 
ment  relations  are  shown  in  Eq  (C.3). 


1  Du^  +  u^-^/2 
“2, 2  ~  ^“3  “3,  2^^ 

“1,2  ■'■“2,  1  ■*'“3,  1^3,2 


(C.3) 


where  uj,  U2,  and  U2  are  given  in  Eq  (C.16).  For  this  case,  the  60  shell  geometric  functions 
fli  are  simplified,  because  h^=  I  and  the  quadratic  terms  of  the  expansions  are  neglected. 
The  simplified  nonzero  functions  of  Appendix  A  are  listed  in  Eq  (C.4). 
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fl2  = -D  (1  +  Dy^) 

*3  =  1+  2O73 

*6  =  0^1+2073) 

.>  2 
fIj  =  D 

*9  =  -C(1  +  C73) 

*11  =  1  +  2073 

*14  =C^  1+2073) 

*15  =  0^ 

*17  =  1  +  C73 

*18  =  1  +D73 

*21  =  1+  (C  +  D)73 

*22  =  -0(1+073) 

*23  =-0(1+073) 

*26  =  00 

*32  =  1  +  O73) 

*24  =  -0(1 +2073) 

*39  =  0^1+073) 

*42  =  -0(1 +2073) 

fi45  = -D  (I  +  (C  +  D) y^)  ft46  =  -C(l+  (C  +  D)y3) 

^51  =  C£)(1  +  Cy3)  fls2  =  CD  (1  +  Dy^) 

*60  =  CD(,l+  (C  +  D)y^) 

The  strain  equations  listed  below  are  the  parts  of  the  linear  and  nonlinear  strain  com¬ 
ponents  for  the  SOXX  elemental  codes.  Contracted  notation  is  used,  where  E;  =  Ejj,  £2  = 
^22’  ^3  -  ^4  =  £25’  £5  =  £75’  £5  =  £;2-  The  strain  components  e,-  are  given  by  the 

series  expansion  shown  in  Eq  (C.5). 

n 

£■=  'Z/i/2  (C.5) 

p  =  0 

The  nonzero  xf  are  listed  below  for  each  component  of  the  SOXX  classical  Donnell 
spherical  shell  theory  code.  The  COXX  general  cylindrical  shell  theory  is  given  by  setting 


C-2 


Rj  =  oo  thereby  causing  D  =  0.  Thus,  all  terms  containing  D  are  neglected.  The  POXX 
classical  von  Karman  plate  theory  is  given  by  setting  Rj  =  0°  and  R2  =  thereby  Z)  =  0 
and  C  =  0  result.  Thus,  all  terms  containing  D  and  C  are  neglected.  Note:  for  shell  theory, 
£3  =  0  and  due  to  classical  FTSD  theory,  transverse  shear  is  ignored.  Thus,  =  0  and 


0  2 
Xi  =  M  1  -Dw  +  w  ^/2 


Xi  = 


0  2 
Xi  =  V  2  -  Cw  +  w 


'^2  ~  ^,22  ^^,2 


0 


^6 


=  «2  +  ^1+^1^2 


^6  =  2w^12-^^2-^\i 


(C.6) 

(C.7) 

(C.8) 

(C.9) 

(C.IO) 

(C.11) 
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Appendix  D.  Strain-Displacement  Relations  for  Modified  Donnell  (SIXX) 

Elemental  Codes 

The  strain-displacement  relations  of  this  appendix  are  for  the  case  of  a  spherical 
shell  with  a  radius  of  =  R2  =  R.  The-yj  coordinate  is  the  circumferential  distance  dy^  = 
RldQi  =  RdQ  and  the  coordinate  is  the  circumferential  distance  dy2  =  1^2^02  =  RdQ.  The 
kinematic  displacements  within  the  shell  are  assumed  to  be  a  modified  Donnell  relations 
with  a  higher-order  (parabolic)  transverse  shear  distribution  (HTSD)  theory,  and  take  the 
form 


^  ^  ^ 

U  =  H- ^2^2  +  ^362  ,  (D.l) 

where 

“l  (Tp>'2’3'3)  =  +xi/iT3  +  ^(w  j +\i/j)y3 

3 

M2(>'i’>'2’>'3^  =  v(l-Cy3)  +\|/2T3  +  ^(w2  +  \J/2)T3  •  (^.2) 

“3  (3'py2^  = 


The  seven  degrees  of  freedom  u,  v,  w,  wj,  W2,  t|/i,  and  \y2  are  functions  of  midsurface 
coordinates  (yj,  ^2)  only.  The  \i/j  are  rotations  about  the  normal  and  D  =  l/Ri  =  l/R,  C  = 
l//?2  =  and  k  =  -4l{3h^).  The  modified  Donnell  spherical  shell  strain-displacement 
relations  with  transverse  shear  flexibility  are  shown  in  Eqs  (D.3a)-(D.3e). 


fl  18^  j  ^^29^2  ^2^3  "b 

r  .  A 


+ 


\  ^  j 


V  2  y 


(^2  ^  2  J  ^^3  1 


+ Du^  (D.3a) 

2 


D-1 


£2  -  ^17^2  2  +  ^9^3  + 


^11 


+ 


V  2  J 
r  .  \ 


\  ^  ) 


(^1  2  ~ ^20^2^  "*" 


h 


11 


(^2  2  ■*■  ^20^ ][  3-  Cu^)  (D.3b) 
2 


V  ^  y 


(1/3  2  -  Cm^) 


£4  =  ^17 


Cm^  2  ^  “  ^3^^)  “0  'X  +  Cu 


3^  “2,  3 


(D.3c) 


£5  =  ^fl8 


Cu^^  {\-Dy^u^  2  + 


(D.3d) 


+ 


+ 


+ 


=  ^17i^l^2  ■‘■^18“2,  1  ~^36«2“^29^^1 


{u^  2  “^20^2^  1  +  ^19^2  ^^“3^ 

(^2  ^19^]^)  (^2  2  ^20^]^  3"  Cu^) 

(u^  ^-Du-^)  (m^  2~^“2^ 


(D.3e) 


where  mj,  M2>  and  M3  are  given  in  Eq  (D.2).  For  this  case,  the  60  shell  geometric  functions 
fli  are  simplified,  because  /z3  =  1  and  the  quadratic  terms  of  the  expansions  are  neglected. 
The  simplified  nonzero  functions  of  Appendix  A  are  listed  in  Eq  (D.4). 

The  strain  equations  listed  below  are  the  parts  of  the  linear  and  nonlinear  strain  com¬ 
ponents  for  the  SIXX  elemental  codes.  Contracted  notation  is  used,  where  ej  =  eji,  £3  = 

^22’  ^3  =  ^33’  £4  -  ^23’  ^5  =  ^13>  and  £5  =  £12-  The  strain  components  £,•  are  given  by  the 
series  expansion  shown  in  Eq  (D.5). 
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fl2  = -D  (1  +  Dy^) 

63  =  1  +  20^3 

flu  =  a  +  2Dy^) 

flT  =  D^ 

fl9  = -C  (1  +  Cy^) 

ft„  =  l+2Cy3 

flu  =  C^(l+2Cy^) 

Bis  = 

fin  =  1  +  Cy^ 

Bii  =  1  +Dy^ 

fl21  =  l  +  {C  +  D)>-3 

B22  =  -D(l  +  Cy^) 

ft23  =  -C(l+Dy3) 

B26  =  CD 

fl-i2  =  D^(\+  Dy^) 

*24  =  -0  ( 1  +  2Dy^) 

fl29  =  C^(\  +  Cy^) 

*42  =  -0(1+2%) 

^f45  = -0(1 +  (€  +  0)^3)  ^46  =  -C(1+  (C  +  Oyj) 
tisi  =  CD  a  +  Cy^)  (l52  =  CD(\^Dy^) 


^60  =  CD(\+  (C  +  D)y^) 


n 


p  =  0 


(D.5) 


The  nonzero  x^i  are  listed  below  for  each  component  of  the  SI XX  modified  Donnell 
spherical  theory  code.  The  Cl XX  modified  Donnel  cylindrical  shell  theory  is  given  by  set¬ 
ting  /?!  =  oo  thereby  causing  D  =  0.  Thus,  all  terms  containing  D  are  neglected.  The  PIXX 
modified  von  Karman  plate  theory  is  given  by  setting  Ri  =  0°  and  /?2  =  °°  >  thereby  D  =  0 
and  C  =  0  result.  Thus,  all  terms  containing  D  and  C  are  neglected.  Note:  for  shell  theory, 
83-0 
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0  X.  2 

Xj  =  M  j  -Dw  +  w  j 

(D.6) 

5cl  =  Vi.i-Dx,, 

(D.7) 

Zi  =  *(v>'_n  +  'l'i,i) 

(D.8) 

0  ^2 

X2  =  V  2  -  Cw  +  w  2 

(D.9) 

Xl  =  ¥2,  2  -  ^^2 

(D.IO) 

X2  =  ^(^,22'^'^^2,  2^ 

(D.ll) 

0 

X4  =  >v^2  +  ¥2 

(D.12) 

X4  =  3k  (w  2  +  ^2^ 

(D.13) 

0 

L/l 

II 

+ 

< 

(D.14) 

2 

X5  =  3kiw.^+\^^) 

(D.15) 

0 

X6  =  “,2  +  ^1+^1^2 

(D.16) 

^6  "  '^^l,2'^'l^2,  1 

(D.17) 

D-4 


(D.18) 


3 
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Appendix  E.  Strain-Displacement  Relations  for  a  Full  Nonlinear  (S2XX) 

Elemental  Codes 

The  strain-displacement  relations  of  this  appendix  are  for  the  case  of  a  spherical 
shell  with  a  radius  of  =  /?2  =  R-  The  coordinate  is  the  circumferential  distance  dy^  = 
Rdd\  =  RdQ  and  the  y2  coordinate  is  the  circumferential  distance  dyj  =  RdQ2  =  Rd^.  The 
kinematic  displacements  within  the  shell  are  assumed  to  be  of  the  form 

^  ^  — y 

U  =  M  -f  ^2^2  +  ^3^2  ,  (E.l) 

where 

“l  +¥i>’3  +¥i)T3 

3 

=  v(l -C>;3)  +\1/2T3 +  ^(w  2  +  X1/2)T3  •  (E.2) 

M3(>’p>'2)  =  ^ 


The  seven  degrees  of  freedom  u,  v,  w,  w  i,  W2,  \|/],  and  \j/2  are  functions  of  midsurface 
coordinates  (jj,  3^2)  only.  The  \|/j  are  rotations  about  the  normal  and  D  =  l/R]  =  l/R,  C  =  1/ 

/?2  =  yR,  and  k  =  -Al{3h^).  The  full  in-plane  nonlinear  spherical  shell  strain-displacement 
relations  with  a  higher-order  (parabolic)  transverse  shear  theory  (HTSD)  are  shown  in  Eqs 
(E.3a)-(E.3e). 


j  +  ^29^2  ^2^3  + 


2 

-H 

V  2  3 

(^2,  l"^19“i)  + 

K  2  y 

^“3, 1 


(Mj  j  -t-  fi\gU2  +  Du^) 


2 

-  Du^) 


2 


(E.3a) 
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02  =  ^17^2  2  “^36^1  +  ^9^3 


^tln 

V  2  ; 


V  2  y 

f \ 


(^1  2  ^20^2^ 


+ 


11 


^  2 


(^2  2  "I"  ^20^2  3-  Cu^)  (E.3b) 
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(m^  2  “  ^^9) 


£4  =  ^17 


CM3  2  ^  ^  ~  O9)  “9  9  +  Cm 


3^  “2,  3 


(E.3c) 


=  ^18 


Cm^  j+  (I  -  Dy^)  u^  ^+Du^ 


(E.3d) 


£g  —  fl\’jU-^  2  -^18^2  1  ^36^2  -^29^2 
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V  2  y 

{  ^2ll 


V  2  ; 
{  ^2ll 


+ 


\  ^  J 


(Mi  2  -^20^2^  (^2  1  fi \^iir2^  "I"  Dm^') 
( ^2  2  i^u )  (M2  2  ^20^ 2  Cm^) 
(m^  ^-Dm^)  (m^  2-CM2) 


(E.3e) 


where  M],  M2’  M3  are  given  in  Eq  (E.2).  For  this  case,  the  60  shell  geometric  functions 
fli  are  simplified,  because  /13  =  1  and  the  quadratic  terms  of  the  expansions  are  neglected. 
The  simplified  nonzero  functions  of  Appendix  A  are  listed  in  Eq  (E.4). 

The  strain  equations  listed  below  are  the  parts  of  the  linear  and  nonlinear  strain  com¬ 
ponents  for  the  S2XX  elemental  codes.  Contracted  notation  is  used,  where  ej  =  £11,  £2  = 

£22>  £3  =  £33^  £4  =  £23’  £5  =  ^13’  £5  =  £i2-  The  Strain  components  £j-  are  given  by  the 

series  expansion  shown  in  Eq  (E.5). 
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fl2  = -D  {1  +  Dy^) 

^3  =  1  +  2Dy^ 

ll6  =  D^(l  +  2Dy^) 

flj  =  D^ 

flg  =  -C(l  +  Cy^) 

^11  =  1  +2C>’3 

tll4  =  C^(l  +2Cj>3) 

tli5  =  C^ 

&17  =  1  +  Cyj 

^18  =  1  +r’3’3 

^21  =  l  +  (C  +  D)y^ 

fl22  = -D  0  +  Cy^) 

tl23  = -C  (1  +  Dy^) 

^26  =  CD 

fl32  =  D^(l+  03.3) 

fl24  =  -DO+  2Dy^) 

639  =  C^  (1  +  Cy^) 

fl42  =  -C(l+2C>’3) 

fl45  =  -D(l  +  (C  +  D)y^)  (l46  =  -Ca+  (C  +  D)y^) 
fisi  =  CD  (I  +  Cyj)  fl52  =  CD  (1  +  Dy^) 


&60  =  CD(1  +  (C  +  £)))-3) 

n 

^i=  Zxfj's  (E.5) 

p  =  0 

The  nonzero  are  listed  below  for  each  component  of  the  S2XX  general  spherical 
shell  theory  code.  The  C2XX  general  cylindrical  shell  theory  is  given  by  setting  Ri  =  oo 
thereby  causing  D  =  0.  Thus,  all  terms  containing  D  are  neglected.  The  P2XX  general 
plate  theory  is  given  by  setting  =  oo  and  /?2  =  °° ,  thereby  D  =  0  and  C  =  0  result.  Thus, 
all  terms  containing  D  and  C  are  neglected.  Note;  for  shell  theory,  £3-0 
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(E.6) 

If  2  2  2  ^ 
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2 
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(E.7) 

+  Vi\i/2  1+  (1+Mj)¥i,l 

2  2 

23  D  f  2,  ^^2  2 

Xi  =  D  + -^(^\}/^ +4w  ^I|/j -4w\i/^  J  +  yVj-2CDv^ 

If  2  2  ^ 

+  D[(l  +  «)Vi_i]  +  (20-C)v,M'2,i  +  2l'l'i,i+'l'2,lJ 

(E.8) 
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(E.9) 

+  v_i(h._i2  +  ¥2,i)] 

4  3  2 
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X2  =  [v  (w  2  +  11/2)  -  ( 1  +  V  2)  w] 

2 

+  C  [w  2  (w  2  +  11/2)  -w\}/2  2]  +  {C~D)u^ 

+  “,2^1,2+(1  +  \2)M^2,2 


(E.15) 
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If  2  2  ^ 

+  C[(1  +v)\l/2  2]  +  (2C-J)M2¥i,2  +  2l^l,2'^'t^2,2j 


(E.16) 


X2  =  c’ M'2  +  c[i|/i_2  +  V|;2_2]  +  *[(1+v_2)  (w22  +  V2,2) 


“,2  ^^,12  ■’■'1^1,  2^^ 


(E.17) 


4  3  2 

X2  =  C  /:[v(w2  +  11/2)]  -C  /:[2w(w22  +  ^2,2^ 

-  (2w  2  +  \l/2)  (w  2  +  \|/2)  ]  +  C/:  [  (1  +  V  2)  (w  22  +  ¥2,  2^  ] 

+  {2C-D)k{u.^{w^^^  +  \if^r^] 

+  i  [Vi_  2  (H-.n  +  Vl,  2)  +  'l'2, 2  (“'.22  +  'l'2, 2)  1 


(E.18) 
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'7  P,2,  .2  2 

Xi  =  C  ^  (w  2  +  ^1/2)  +  C/: 


(^12  +  ^1,2)^+(^22  +  '<72,2)^. 
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X4  =  >.^2  +  'i'2 


(E.22) 


X4  =  3/:(w2  +  XK2) 


(E.23) 
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X5  =  Wi+¥i 


(E.24) 


X5  =  3/:(w^^  +\1/^) 
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(E.27) 
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Xg  =  (C  +  D)/:(w^^W2-ww^j2)  +  {C-\-D)  (Vj  iV|/^  2 

^^^2,  l'*^2,  2^  ■'■  2^  “  ^^*^2,  1^ 

+  ^[(1  +  M^)  (Wj^2'^M^jl^  2^  1^ 

+  (w  22  +  't^2,  2^  ^  +  ^2^  (^^,12  -^^2,0^ 

Xg  =  {C  +  D)^k{w.^w,2-ww.^2) 

+  D  (C  +  D)  k  (w  2^1  -  2^ 

+  C  (C  +  D)  k(w  1^ 

+  CDk  [\|/j  (w  2  +  ^1/2)  +  ¥2  (^,1  +  ¥1)  ] 

+  Dk  [  ( 1  +  V  2)  (^12  '*'  ^*^2,  1^  ^ 

+  Ck  [  {I  +  u j)  (^  12  "'’  2^  ^ 

+  t[Vl_i(w_i2  +  «l»i_2)  +Vi,2(«',ll+Vi,i) 

+  ^2,  1  ^”',22  ■•■  'l'2,  2^  ■•■  'l'2,2^*^,12''''t'2,  1^  ^ 
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(E.32) 
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Xg  =  (C  +  D)/:  [(>^^2"^ '*^1,2^  (^,11  (E.33) 

+  (w  22  +  ¥2,  2^  ^^,12  ^2, 1^  ^ 
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Appendix  F  MACSYMA  Routine  for  Elemental  Code  Generation 


FI  SPHSTRN.MAC  Input  Deck 

The  MACSYMA  input  deck,  SPHSTRN.MAC,  accomplishes  several  steps:  (1)  sym¬ 
bolically  generating  the  appropiate  strain-displacement  relations,  (2)  symbolically  gener¬ 
ating  the  Taylor  series  approximations  for  the  60  shell  shape  functions  (fli),  (3)  inserting 
the  shell  shape  functions  into  the  strain-displacement  relations,  and  (4)  determining  the 

Xj  components  for  each  strain-displacement  relation  £j . 


/* . */ 

/* . */ 

/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 

/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  (MATERIAL  AND  GEOMETRIC  */ 

/*  NONLINEARITY  OF  COMPOSITE  SHELL  STRUCTURES)  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 

/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  */ 

/*  */ 

/*  PROGRAM  SPHSTRN.MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  THE  */ 

/*  STRAIN-DISPLACEMENT  RELATIONS  BASED  ON  THE  PRESCRIBED  */ 

/*  DISPLACEMENT  FIELD  AND  THEN  GENERATES  AND  SAVES  THE  APPROPIATE  */ 

/*  CHI  COMPONENTS  FOR  EACH  STRAIN  TERM.  */ 

/* . */ 

/* . */ 

/* . */ 

/*  INITIALIZE  THE  MACSYMA  PARAMETERS  AND  DECLARE  THE  VARIABLE  */ 

/*  PROPERTIES  */ 

/* . */ 

[ DYNAMALLOC : TRUE , DISKGC : TRUE , DERIVABBREV : TRUE , POWERDISP : TRUE ] ; 

DEPENDS( [U1D,U1R,U2D,U2R,P1,P2,R1,R2,M1,M2,H1,H2] , [Y1,Y2,Y3] ) ; 

DEPENDS ( [PSI1,PSI2,PHI1,PHI2,GAMMA1,GAMMA2] , [Y1,Y2] ) ; 

DEPENDS( [THETAl,THETA2,U,V,W,U3] , [Y1,Y2] ) ; 

DECLARE( [R,C,D,AR1,AR2,AR3,AR4,H3] .CONSTANT) ; 

/* . */ 

/*  SET  THE  THEORETICAL  ATTRIBUTES  FOR  A  SPECIFIC  ELEMENTAL  CODE  */ 

/* . */ 
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/* . */ 

/*  H3  =  1  FOR  A  SHELL  */ 

/* . */ 

H3  : 1  ; 

/* . : . */ 

/*  ARl  =  0  FOR  A  INCOMPLETE  CUBIC  KINEMATICS  */ 
/*  ARl  =  1  FOR  THE  COMPLETE  QUARTIC  KINEMATICS  */ 

/* . */ 

ARl : 0 ; 


/* . */ 

/*  AR2  =  0  FOR  A  LINEAR  H1/H2  APPROXIMATIONS  */ 

/*  AR2  =  1  FOR  THE  QUADRATIC  APPROXIMATIONS  */ 

/* . */ 

AR2 : 0 ; 

/* . */ 

/*  AR3  =  0  FOR  LINEAR  TRANSVERSE  STRAIN  */ 

/*  AR3  =  1  FOR  NONLINEAR  TRANSVERSE  STRAIN  */ 

/* . */ 

AR3 : 0 ; 


/* . */ 

/*  SUBLIST  IS  A  VARIABLE  CONTAINING  THE  DEFINITIONS  OF  DISPLACEMENT  */ 


/*  PARAMETERS  Q(l)  THROUGH  Q(18).  ALL  SYMBOLIC  MANIPULATION  OF  STRAIN  */ 
/*  COMPONENTS  IS  DONE  WITH  THE  NAMES  TO  THE  LEFT  OF  THE  EQUAL  SIGNS  IN  */ 
/*  THE  SUBLIST.  THE  Q(XX)  DEFINITIONS  ARE  REQUIRED  ONLY  FOR  GENERATION  */ 


/*  OF  ELEMENT  INDEPENDENT  STRAIN  DEFINITION  ARRAYS  LO  THROUGH  SS12 ,  */ 
/*  ETC.  */ 
/* . */ 


SUBLIST:  [DIFF (U, Y1 ) =Q { 2 ) , DIFF (U, Y2 ) =Q (3 ) ,U=Q(1)  ,  DIFF (V, Y1 ) =Q ( 5 )  , 
DIFF(V,Y2)=Q(6) ,V=Q(4) , DIFF (W, Yl , 2 ) =Q ( 10 ) , DIFF (W, Y2 , 2 ) =Q ( 11 ) , 
DIFF(W, Yl, 1,Y2, 1)=Q(12) , DIFF (W, Yl) =Q ( 8 ) , DIFF (W, Y2 ) =Q ( 9 ) ,W=Q(7) , 
DIFF(PSI1, Yl) =Q(14) ,DIFF(PSIl,Y2)=Q(15) ,PSI1=Q(13) , 
DIFF(PSI2,Y1)=Q(17) , DIFF (PSI2 , Y2 ) =Q (18 ) ,PSI2=Q(16) ] ; 


/* . */ 

/*  BEGIN  GENERATING  THE  DISPLACEMENT  FIELD  COMPONENTS  Ul ,  U2 ,  U3  THESE  */ 
/*  NEXT  STEPS  HAVE  BEEN  SPECIALIZED  FOR  A  SPHERICAL  SHELL  R1  =  1/D,  */ 

/*  R2  =  1/C,  K  =  -4/(3*H^2).  THE  VALUES  OF  D,  C,  AND  K  WILL  BE  INPUT  */ 
/*  AS  PART  OF  THE  FORTRAN  PROGRAM.  THEY  ARE  UNSPECIFIED  CONSTANTS  AS  */ 
/*  FAR  AS  MACSYMA  IS  CONCERNED  */ 

/* . */ 

Pl:U* {1-Y3*D) ; 
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P2 :V* (1-Y3*C) ; 
P11:DIFF(U, Yl) * (1-Y3*D) ; 
P12 :DIFF(U, Y2) * (1-Y3*D) ; 
P21:DIFF(V,Y1) * (1-Y3*C) ; 
P22 :DIFF(V, Y2) * (1-Y3*C)  ; 
L11:DIFF(PSI1,Y1) ; 
L12:DIFF(PSI1,Y2)  ; 
L21:DIFF(PSI2,Y1) ; 
L22:DIFF(PSI2,Y2)  ; 

M1:K* (DIFF(W,Y1) +PSI1)  ; 
M2:K*(DIFF(W,Y2)+PSI2)  ; 


/* . */ 

/*  INCOMPLETE  CUBIC  U1  DISPLACEMENT  */ 

/*  OF  DENNIS.  */ 

/* . */ 

UID : P1+Y3  *PSI1+Y3  ^3  *M1 ; 

/* . */ 

/*  INCOMPLETE  CUBIC  U2  DISPLACEMENT  */ 

/*  OF  DENNIS.  */ 

/* . */ 

U2D:P2+Y3*PSI2+Y3^3*M2; 


/* . */ 

/*  COMPLETE  QUARTIC  U1  &  U2  OF  SMITH  IS  GIVEN  BY  U1  =  UID  +  UlR  &  U2  =  */ 

/*  U2D  +  U2R,  WHERE  UlR  &  U2R  ARE  THE  CURVATURE  CORRECTION  TERMS.  */ 

/* . */ 

UlR: (-Ml* (1+K*Y3^2) *Y3^2/ (K/D) ) ; 

U2R: (-M2* (1+K*Y3^2) *Y3^2/ (K/C) ) ; 

U1 : U1D+U1R*AR1 ; 

U2  :U2D+U2R*AR1; 

U3  :W; 


/* . */ 

/*  SYMBOLICALLY  THE  DERIVATIONS  OF  Ul,  U2 ,  AND  U3 .  */ 

/* . */ 


Dull: P11+Y3*L11+Y3^3*DIFF(M1, Yl) +AR1*DIFF(U1R,Y1) ; 
DU12 : P12+Y3  *L12  +Y3 ''3  *DIFF (Ml , Y2 ) +AR1*DIFF (UlR, Y2 ) ; 
DU21 : P21+Y3  *L21+Y3^3*DIFF (M2 , Yl ) +AR1*DIFF (U2R, Yl) ; 
DU22 : P22+Y3  *L22+Y3  ^3*DIFF (M2 , Y2 ) +AR1*DIFF (U2R, Y2 ) ; 
DU31:DIFF(U3, Yl) ; 

DU32:DIFF(U3,Y2) ; 
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/* . */ 

/*  SYMBOLICALLY  GENERATE  THE  LAGRANGIAN  GREEN-STRAIN  COMPONENTS  */ 

/*  DIVIDED  BY  THE  APPROPIATE  SHELL  LAME'  PARAMETERS  HI,  H2 ,  TO  GIVE  THE  */ 
/*  PHYSICAL  STRAINS  EPSILONll,  EPSILON22,  EPSILON12,  EPSILON23,  */ 

/*  EPSILON13,  EPSILON33  */ 

/* . */ 

/* . */ 

/*  EPSILONll  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  4  ARE  THE  NONLINEAR  TERMS  */ 

/* . */ 

ER[1] : ( (H1*DU11+DIFF(H1, Y2) *H1*U2 /H2+DIFF (HI , Y3 ) *H1*U3/H3)+ 

1/2*  (DU11+DIFF(H1,  Y2)  *U2 /H2+DIFF  (HI ,  Y3 )  *U3 /H3  )  ^^2  + 

1/2*  (DU21-DIFF(H1,Y2)  *U1/H2)"'2  + 

1/2*  (DU31-DIFF(H1,Y3)  *U1/H3)^2)  /Hl''2; 

/* . */ 

/*  EPSILON22  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 

/*  THROUGH  4  ARE  THE  NONLINEAR  TERMS  */ 

/* . */ 

ER[2] : ( (H2*DU22+DIFF(H2,Y1)*H2*U1/H1+DIFF(H2,Y3)*H2*U3/H3)+ 

1/2*  (DU22+DIFF{H2,Y1)  *U1/Hl+DIFF  (H2  ,  Y3 )  *U3 /H3 )  ■'2  + 

1/2*  (DU12-DIFF(H2,Y1)  *U2/H1)''2  + 

1/2*  (DU32-DIFF{H2  ,  Y3)  *U2/H3)  ''2)  /H2''2; 

/* . */ 

/*  EPSILON12  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  4  ARE  THE  NONLINEAR  TERMS  */ 

/* . */ 

ER[6] : ( (H1*DU12+H2*DU21-DIFF(H2,Y1) *U2-DIFF(Hl, Y2) *U1)+ 

(DU12-DIFF(H2, Yl) *U2/H1) * (DUll+DIFF (HI , Y2 ) *U2 /H2+DIFF (HI , Y3 ) *U3 /H3 ) + 
(DU21-DIFF (HI, Y2) *U1/H2) * (DU22+DIFF (H2 , Yl ) *Ul /Hl+DIFF (H2  ,  Y3 ) *U3/H3)  + 
(DU31-DIFF(H1,Y3) *U1/H3) * (DU32-DIFF (H2 , Y3 ) *U2/H3) ) / (H1*H2)  ; 

/* . */ 

/*  EPSILON23  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  8  ARE  THE  NONLINEAR  TERMS.  FORCING  FUNCTION  F(Z)=1+  3*K*Y3^2  */ 
/*  IS  USED.  THIS  PARABOLIC  FORCING  FUNCTION  APPLIED  ONLY  TO  NONLINEAR  */ 

/ *  TERMS .  * / 

/* . */ 

ER[4] ; (DU32+ (1-C*Y3) *DIFF(U2,Y3) -U2* (-C) ) / (H2*H3) ; 

ERNL[4] : ( 1+3 *K*Y3^2 ) * ( 

(DIFF(U2, Y3) -DIFF(H3,Y2) *U3/H2) *  , 

( DIFF (U2 , Y2 ) +DIFF (H2 , Yl ) *Ul /Hl+DIFF (H2 , Y3 ) *U3 /H3 ) + 
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(DIFF(U3, Y2) -DIFF(H2, Y3) *U2/H3) * 

(DIFF (U3 , Y3 ) +DIFF (H3 , Y1 ) *U1 /Hl+DIFF (H3 , Y2 ) *U2 /H2 ) + 

(DIFF{U1, Y2) -DIFF(H2, Yl) *U2/H1) * 

(DIFF (U1,Y3) -DIFF (H3,Y1) *U3/H1) ) / (H2*H3) ; 

ER[4] :ER[4]+ERNL[4]*AR3; 

/* . */ 

/*  EPSIL0N13  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  8  ARE  THE  NONLINEAR  TERMS.  FORCING  FUNCTION  F(Z)  =1+3*K*Y3''2  */ 
/*  IS  USED.  THIS  PARABOLIC  FORCING  FUNCTION  APPLIED  ONLY  TO  NONLINEAR  */ 


/ *  TERMS .  * / 

/* . */ 


ER[5] : (DU31+(1-D*Y3) *DIFF{U1,Y3)-U1* (-D) ) / (Hl*H3) ; 
ERNL[5]  :  ( 1+3 *K*Y3 ^^2  )  *  ( 

(DIFFIUI, Y3) -DIFF(H3, Yl) *U3/H1) * 

(DIFF (U1 , Yl ) +DIFF (HI , Y2 ) *U2 /H2+DIFF (HI , Y3 ) *U3 /H3 ) + 
(DIFF(U3, Yl) -DIFF (HI, Y3) *U1/H3) * 

(DIFF (U3 , Y3 ) +DIFF (H3 , Yl ) *U1 /Hl+DIFF (H3 , Y2 ) *U2 /H2 ) + 
(DIFF(U2, Yl)-DIFF(H1,Y2) *U1/H2) * 

(DIFF(U2, Y3) -DIFF(H3,Y2) *U3/H2) ) / (H1*H3) ; 

ER [ 5 ] : ER [ 5 ] +ERNL [ 5 ] *AR3 ; 


/* . */ 

/*  EPSILON33  COMPONENT  OF  STRAIN  IS  ZERO.  IT  IS,  HOWEVER,  INCLUDED  IN  */ 
/*  THE  CONSTITUTIVE  RELATIONS  THROUGH  THE  ELASTICITY  SUBROUTINE  OF  THE  */ 

/*  CODE  WRITTEN  BY  DENNIS.  */ 

/* . */ 

ER [ 3 ] : 0 ; 


/* . */ 

/*  SUBSTITUTE  THE  Q(l)  THROUGH  Q(18)  DEFINITIONS  OF  SUBLIST  AND  DISPLAY  */ 

/*  THE  STRAIN  COMPONENTS  INDIVIDUALLY.  */ 

/* . */ 

FOR  I  THRU  6  DO  (ER [ I ] : EXPAND (ER [I] ) , 

ER[I] : EXPAND (SUBST( SUBLIST, ER [I] ) ) , DISPLAY (ER [ I] ) ) ; 


/* . */ 

/*  THE  NEXT  60  EXPRESSIONS  ARE  THE  POSSIBLE  COMBINATIONS  OF  THE  LAME'  */ 
/*  PARAMETERS  APPEARING  IN  THE  STRAIN  EXPRESSIONS  FOR  AN  ARBITRARY  */ 

/*  SHELL,  WHERE  H3  =  1 ,  AND  HI,  H2  DEPEND  UPON  Yl ,  Y2 ,  AND  Y3 .  */ 

/* . */ 

HREXP[1] : (DIFF(H1,Y2) /HI) ; 

HREXP[2] : (DIFF(H1,Y3) /HI) ; 

HREXP[3] : (1/ (Hl^2) ) ; 

HREXP[4]  :  (DIFF  (HI ,  Y2  )  ''2  /  (H1^2 )  )  ; 
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HREXP[5]  ;  (DIFF  (HI ,  Y2 )  -^2  /  (H2''2)  )  ; 

HREXP[6]  :  (DIFF(H1,  Y3)  ^'2/  (Hl''2)  )  ; 

HREXP[7] : (DIFF (HI , Y3 ) ^2 ) ; 

HREXP[8]  :  (DIFF{H1,  Y2)  *DIFF(H1,Y3)  /  {Hl''2)  )  ; 
HREXP[9] : (DIFF (H2 , Y3 ) /H2 ) ; 

HREXP[10] : (DIFF(H2, Yl) /H2) ; 

HREXPIll] : (1/(H2-2)); 

HREXP[12]  :  (DIFF  (H2  ,  Yl )  ''2  /  (H2^2  )  )  ; 

HREXP[13]  :  (DIFF(H2,  Yl)  ^2/  (HI ''2)  )  ; 

HREXP[14]  :  (DIFF(H2,Y3)  ^'2/  (H2^2)  )  ; 

HREXP[15] : (DIFF (H2 , Y3 ) ^2 ) ; 

HREXP[16] ; (DIFF(H2, Y3) *DIFF(H2 , Yl) / (H2^2) ) ; 
HREXP[17] ; (1/H2) ; 

HREXPE18] : (1/Hl) ; 


HREXP[19] : (DIFF(H2,Y1) 
HREXP[20] : (DIFF(H1,Y2) 
HREXP[21] : (1/ (H1*H2) ) ; 
HREXP[22] : (DIFF(H1,Y3) 
HREXP[23] : (DIFF(H2,Y3) 
HREXP[24] : (DIFF(H2,Y1) 
HREXP[25] : (DIFF(H2,Y1) 
HREXP[26] : (DIFF(H1,Y3) 
HREXPC27] : (DIFF (HI, Y3) 
HREXP[28] : (DIFF(H2,Y3) 
HREXP[29] : (DIFF(H1,Y2) 
HREXP[30] : (DIFF(H1,Y2) 
HREXP[3l] : (DIFF (HI, Y2) 
HREXP[32] : (DIFF(H1,Y3) 
HREXP[33] : (DIFF (HI, Y2) 
HREXPC34] : (DIFF (HI, Y3) 
HREXP[35] : (DIFF(H1,Y2) 
HREXP[36] : (DIFF(H2,Y1) 
HREXP[37] ; (DIFF(H2,Y1) 
HREXP[38] : (DIFF(H2,Y1) 
HREXP[39] : (DIFF(H2,Y3) 
HREXP[40] : (DIFF(H2,Y1) 
HREXP[41] : (DIFF(H2,Y3) 
HREXP[42] : (DIFF(H2,Y3) 
HREXP[43] : (DIFF (HI, Y2) 
HREXP[44] : (DIFF(H2,Y1) 
HREXP[45] ; (DIFF (HI, Y3) 
HREXPE46] : (DIFF(H2,Y3) 
HREXP[47] : (DIFF(H2,Y1) 
HREXPC48] : (DIFF(H1,Y2) 
HREXP[49] : (DIFF(H1,Y3) 
HREXP[50] : (DIFF(H2,Y3) 


/HI)  ; 

/H2 )  ; 

/H2 )  ; 

/HI)  ; 

*DIFF(H1,Y2)/(H1"2)); 
*DIFF(Hl,Y2)/(H2-2)); 
*DIFF(H2,Y3) ) ; 
*DIFF(H2,Y1)/(H1^2) ) ; 
*DIFF(H1, Y2) / (H2^2) ) ; 

/ (H1*H2) ) ; 

''2/  (H1''2*H2)  )  ; 

''2/  (H2^2*H1,)  )  ; 

^2/Hl) ; 

/ (H1^2) )  ; 

/  (Hl''2)  )  ; 

*DIFF(H1,Y3) / (H1^2*H2) ) 
/ (H1*H2) ) ; 

''2/  (H1*H2''2)  )  ; 

''2/  (H2*H1^2)  )  ; 

^2/H2)  ; 

/ (H2^2)  )  ; 

*DIFF(H2,Y1) / (H1*H2^2) ) 
/  (H2''2)  )  ; 

/ (H2"2) )  ; 

/  (Hl''2)  )  ; 

/ (H1*H2) )  ; 

/ (H1*H2) ) ; 

*DIFF (HI , Y2 ) / (Hl-2  *H2 ) ) 
*DIFF  (H2  ,  Yl )  /  (H2''2*H1)  ) 
*DIFF(H2, Yl) / (H1^2*H2) ) 
*DIFF ( HI , Y2 ) / (H2  ^2  *H1 ) ) 
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HREXP[51] : (DIFF (HI , Y3 ) *DIFF (H2 , Y3 ) /H2 ) ; 

HREXP[52] : (DIFF (HI , Y3 ) *DIFF (H2 , Y3 ) /HI ) ; 

HREXP[53]  :  (DIFF  (HI ,  Y2  )  ^2  /  (Hl''2  *H2^2  )  )  ; 

HREXP[54] : (DIFF (HI , Y2 ) / (H1^2*H2) ) ; 

HREXP[55]  :  (DIFF  (H2  ,  Y1 )  ^2  /  (H1''2*H2''2  )  )  ; 

HREXP[56] : (DIFF(H2,Y1) /(H2^2*H1) ) ; 

HREXP[57]  :  (DIFF(H1,Y2)  /  (H1*H2''2)  )  ; 

HREXP[58] : (DIFF(H2, Yl) / (H2*Hl^2) ) ; 

HREXP[59]  :  (DIFF(H2,  Yl)  *DIFF  (HI ,  Y2  )  /  (H1''2*H2^2)  )  ; 
HREXP[60] : (DIFF (HI , Y3 ) *DIFF {H2 , Y3 ) / (H1*H2) ) ; 


/* . */ 

/*  THE  MACRO  HRTAY(X,I) ::=  GENERATES  THE  COEFFICIENTS  F,  G,  AND  H  OF  THE*/ 
/*  TAYLOR'S  SERIES  EXPANSION  OF  THE  EXPRESSION  X  ABOUT  THE  POINT  Y3  =  0  */ 
/*  FOR  A  SPHERICAL  SHELL  WITH  Hi  =  1  -  Y3/R1  AND  H2  =  1  -  Y3/R2.  */ 
/* . */ 


HRTAY(X, I) : : =BUILDQ { [X, I] , ( 

PRINT ("  THE  TAYLOR  SERIES  EXPANSION  OF  "), DISPLAY (X) , 
PRINTC  IS  EQUAL  TO  F  +  G*Y3  +  H*Y3^2  +  H.O.T.,  WHERE  "), 
( X : TAYLOR ( FACTOROUT ( EXPAND ( RAT (EV(X,H1=(1-Y3*D), 
H2=(1-Y3*C) ,DIFF) ) ) ,C,D) ,Y3,0,3) ) , 

F[I] ; EXPAND (COEFF(X,Y3, 0) ) , DISPLAY (F [ I] )  , 

G[I] : EXPAND ( COEFF ( X, Y3, 1) ) , DISPLAY (G[I] ) , 

H[I] : EXPAND ( COEFF (X,Y3, 2) ) , DISPLAY(H[I] ) ) )  ; 


/* . */ 

/*  COMPUTE  THE  COEFFICIENTS  F,  G,  AND  H  FOR  ALL  60  HREXP  EXPRESSIONS.  */ 

/* . */ 

FOR  I  THRU  60  DO  HRTAY ( HREXP [ I ] , I ) ; 

/* . */ 

/*  THE  MACRO  HRSUB(X) : :=  TAKES  ANY  ONE-TERM  EXPRESSION  X,  (PRODUCTS  ARE  */ 
/*  OK,  BUT  [+-]  OPERATORS  ARE  NOT)  AND  SUBSTITUTES  THE  APPROXIMATE  */ 

/*  SERIES  EXPANSION  F  +  G*Y3  +  H*Y3^2  FOR  THE  FUNCTION  OF  LAME'  */ 

/ *  PARAMETERS .  * / 

/* . */ 


HRSUB(X) ; : =BUILDQ ( [X] , ( 

XO:X, 

X:NUM(X) /SUBST(D[1] ,Hl,DENOM(X) ) , 

X:NUM(X) /SUBST(D[2] ,H2,DENOM(X) ) , 

X:NUM(X) /RATSUBST(D[3] ,D[1] *D[1] ,DENOM(X) )  , 
X:NUM(X) /RATSUBST(D[4] ,D[2] *D[2] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[5] ,D[1] *D[2] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[6] ,D[1] *D[4] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[7] ,D[2] *D[3] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[8] ,D[3] *D[4] ,DENOM(X) ) , 


F-7 


XD:X, 

X:NUM(X) /RATSUBST(1/D[1] ,D[1} ,DENOM(X) ) , 

X;NUM(X) /RATSUBST(1/D[2] ,D[2] ,DENOM(X) )  , 

X:NUM(X) /RATSUBST{1/D[3] ,D[3] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[4] ,D[4] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[5] ,D[5] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[6] , D [ 6 ] , DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[7] ,D[7] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[8] ,D[8] ,DENOM(X) )  , 

XN:X, 

X:RATSUBST(F[59] +Y3*G[59] +Y3''2*AR2*H[59]  ,  ■ DIFF (H2 , Y1 ) * 'DIFF(H1, Y2) *D[8] ,X) , 
X;RATSUBST(F[55]+Y3*G[55]+Y3''2*AR2*H[55] , ' DIFF (H2 , Y1 ) ^2 *D [ 8 ] ,X) , 
X:RATSUBST(F[53]+Y3*G[53]+Y3^2*AR2*H[53] ,  ' DIFF (HI , Y2 ) ''2 *D [ 8 ]  ,X)  , 

X:RATSUBST (F [ 50 ] +Y3 *G [ 50 ] +Y3^2*AR2*H[50 ] , 'DIFF(H2, Y3) * ' DIFF (HI , Y2 ) *D[6] ,X) , 
X:RATSUBST(F[49] +Y3*G[49] +Y3''2*AR2*H[49] , 'DIFF(H1, Y3) * 'DIFF (H2 , Y1 ) *D [7 ] , X) , 
X:RATSUBST(F[48] +Y3*G[48] +Y3^2*AR2*H[48] , ' DIFF (HI , Y2 ) * ’DIFF(H2 , Yl) *D[6] ,X) , 
XrRATSUBST (F[47] +Y3 *G [ 47 ] +Y3''2*AR2 *H [47 ]  ,  ’DIFF(H2 , Yl) * 'DIFF (HI , Y2 ) *D [7 ] , X) , 
X:RATSUBST (F [ 41 ] +Y3 *G [41 ] +Y3''2*AR2*H [41] , 'DIFF(H2 , Y3) * ' DIFF (H2 , Yl ) *D[6] ,X) , 
X:RATSUBST(F[38]+Y3*G[38]+Y3"'2*AR2*H[38]  ,  '  DIFF  (H2  ,  Yl )  ^2  *D  [7  ]  ,X)  , 
X:RATSUBST(F[37]+Y3*G[37]+Y3^2*AR2*H[37] , ' DIFF (H2 , Yl ) ^2 *D [ 6 ] ,X) , 
X:RATSUBST(F[35]+Y3*G[35]+Y3^2*AR2*H[35] , ’ DIFF (HI , Y2 ) * ' DIFF (HI , Y3 ) *D [7 ] ,X) , 
X:RATSUBST(F[31]+Y3*G[31]+Y3^2*AR2*H[31] , ' DIFF (HI , Y2 ) ^2 *D [ 6 ] ,X) , 
X:RATSUBST(F[30]+Y3*G[30]+Y3''2*AR2*H[30]  ,  •  DIFF  (HI ,  Y2  )  ^2  *D  [7  ]  ,X)  , 
X:RATSUBST(F[58] +Y3*G[58]+Y3^2*AR2*H[58] , 'DIFF(H2, Yl) *D[7] ,X) , 
X:RATSUBST(F[57]+Y3*G[57]+Y3''2*AR2*H(57]  ,  '  DIFF  (HI ,  Y2  )  *D  [  6  ]  ,X)  , 
X:RATSUBST(F[56]+Y3*G[56]+Y3^2*AR2*H[56] , ' DIFF (H2 , Yl ) *D [ 6 ] ,X) , 
X:RATSUBST(F[54]+Y3*G[54]+Y3''2*AR2*H[54] , •DIFF(H1,Y2) *D[7] ,X) , 

XiRATSUBST (F[60] +Y3*G[60] +Y3^2*AR2*H[60]  ,  'DIFF(H1, Y3) * ' DIFF (H2 , Y3 ) *D[5] ,X)  , 
X:RATSUBST(F[28] +Y3*G[28] +Y3''2*AR2*H[28] ,  ' DIFF (H2  ,  Y3 ) * 'DIFF (HI , Y2 ) *D [4] , X) , 
X:RATSUBST(F[27] +Y3*G[27] +Y3^2*AR2*H[27] , 'DIFF (HI, Y3) * ' DIFF (H2 , Yl ) *D[3] ,X) , 
X:RATSUBST(F[25] +Y3*G[25] +Y3''2*AR2*H[25] , 'DIFF(H2, Yl) * ' DIFF (HI , Y2 ) *D[4] ,X) , 
X:RATSUBST (F[24] +Y3*G[24] +Y3''2*AR2*H[24] , 'DIFF(H2, Yl) * ' DIFF (HI , Y2 ) *D[3] ,X) , 
X:RATSUBST(F[16]+Y3*G[16]+Y3''2*AR2*H[16] , ' DIFF (H2 , Y3 )*' DIFF (H2 , Yl ) *D[4] ,X) , 
X:RATSUBST(F[8] +Y3*G[8] +Y3^2*AR2*H[8] , 'DIFF(H1, Y2) * ' DIFF (HI , Y3 ) *D[3] ,X) , 
X:RATSUBST(F[14]+Y3*G[14]+Y3^2’''AR2*H[14]  ,  '  DIFF  (H2  ,  Y3  ) '"2  *D  [4  ]  ,X)  , 
X:RATSUBST(F[13]+Y3*G[13]+Y3-'2*AR2*H[13]  ,  '  DIFF  (H2  ,  Yl )  ^-2  *D  [3  ]  ,X)  , 
X:RATSUBST(F[12]+Y3*G[12]+Y3''2*AR2*H[12]  ,  '  DIFF  (H2  ,  Yl ) ''2  *D  [4  ]  ,X)  , 
X:RATSUBST(F[6]+Y3*G[6]+Y3^2*AR2*H[6]  ,  '  DIFF  (HI ,  Y3  )  ^^2  *D  [3  ]  ,X)  , 
X:RATSUBST(F[5]+Y3*G[5]+Y3^2*AR2*H[5] , 'DIFF(H1,Y2) ^2*D[4] ,X) , 
X:RATSUBST(F[4]+Y3*G[4]+Y3^2*AR2*H[4] ,  ' DIFF (HI , Y2 )  "^2 *D [3 ] ,X)  , 
X:RATSUBST(F[46]+Y3*G[46]+Y3''2*AR2*H[46] , ' DIFF (H2 , Y3 ) *D [ 5 ] ,X) , 
X;RATSUBST(F[45]+Y3*G[45]+Y3^2*AR2*H[45] , ' DIFF (HI , Y3 ) *D [ 5 ] ,X) , 
X:RATSUBST(F[44]+Y3*G[44]+Y3''2*AR2*H[44] , ' DIFF (H2 , Yl ) *D [3 ] ,X) , 
X:RATSUBST(F[43]+Y3*G[43]+Y3^2*AR2*H[43] , ' DIFF (HI , Y2 ) *D [4 ] ,X) , 
X:RATSUBST(F[42]+Y3*G[42]+Y3''2*AR2*H[42] , 'DIFF(H2,Y3) *D[4] ,X) , 

X:RATSUBST (F[40] +Y3*G[40]+Y3''2*AR2*H[40] , 'DIFF(H2, Yl) *D[4] ,X) , 
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X:RATSUBST{F[36]+Y3*G[36]+Y3''2*AR2*H[36]  ,  '  DIFF  (H2  ,  Y1 )  *D  [  5  ]  ,X)  , 
X:RATSUBST(F[34]+Y3*G[34]+Y3^2*AR2*H[34] , ■ DIFF (Hi , Y3 ) *D [ 3 ] ,X) , 
X:RATSUBST(F[33]+Y3*G[33]+Y3^2*AR2*H[33] , ' DIFF (Hi , Y2 ) *D [ 3 ] ,X) , 
X:RATSUBST(F[29]+Y3*G[29]+Y3''2*AR2*H[29]  ,  '  DIFF  (Hi ,  Y2 )  *D  [  5  ]  ,X)  , 
X;RATSUBST(F[3]+Y3*G[3]+Y3^2*AR2*H[3] ,1*D[3] ,X)  , 
X:RATSUBST(F[21]+Y3*G[21]+Y3'-2*AR2*H[21]  ,1*D[5]  ,X)  , 
X:RATSUBST(F[11]+Y3*G[11]+Y3''2*AR2*H[11]  ,1*D[4]  ,X)  , 

X:RATSUBST(F[52] +Y3*G[52] +Y3''2*AR2*H[52] , •DIFF(Hl, Y3) * ' DIFF (H2 , Y3 ) *D[1] ,X) , 
X:RATSUBST(F[51]+Y3*G[51]+Y3''2*AR2*H[51] , ' DIFF (Hi , Y3 ) * ' DIFF (H2 , Y3 ) *D [2 ] ,X) , 
X:RATSUBST(F[39]+Y3*G[39]+Y3^2*AR2*H(39] , ' DIFF (H2 , Y3 ) ^2 *D [ 2 ] ,X) , 
X:RATSUBST(F[32]+Y3*G[32]+Y3''2*AR2*H[32] , ' DIFF (HI , Y3 ) ^2 *D [ 1 ] ,X) , 
X:RATSUBST(F[23]+Y3*G[23]+Y3''2*AR2*H[23] , • DIFF (H2 , Y3 ) *D [ 1 ] ,X) , 
X:RATSUBST(F[22] +Y3*G[22] +Y3''2*AR2*H[22] , •DIFF(H1, Y3) *D[2] ,X) , 
X:RATSUBST(F[20] +Y3*G[20] +Y3''2*AR2*H[20] , 'DIFF(H1, Y2) *D[2] ,X) , 
X:RATSUBST(F[19] +Y3*G[19] +Y3''2*AR2*H[19] , ■DIFF(H2 , Yl) *D[1] ,X) , 
X:RATSUBST(F[10] +Y3*G[10] +Y3^2*AR2*H[10] , ■DIFF(H2 , Yl) *D[2] ,X) , 
X:RATSUBST(F[9] +Y3*G[9] +Y3"2*AR2*H[9] , 'DIFF(H2, Y3) *D[2] ,X) , 
X:RATSUBST(F[1]'(-Y3*G[1]+Y3^2*AR2*H[1]  ,  'DIFF  (HI,  Y2)  *D[1]  ,X)  , 
X:RATSUBST(F[2]+Y3*G[2]+Y3^2*AR2*H[2] , 'DIFF(Hl,Y3) *D[1] ,X) , 
X:RATSUBST(F[17]+Y3*G[17]+Y3''2*AR2*H[17] ,1*DI2] ,X) , 
X:RATSUBST(F[18]+Y3*G[18]+Y3^2*AR2*H[18] ,1*D[1] ,X) , 
X:RATSUBST(F[15]+Y3*G[15]+Y3^2*AR2*H[15] ,  ' DIFF (H2 , Y3 ) -'2 , X) , 
X:RATSUBST(F[7]+Y3*G[7]+Y3''2*AR2*H[7]  ,  '  DIFF  (HI ,  Y3 )  ■'2  ,  X)  , 

X:RATSUBST(F[26]+Y3*G[26]+Y3^2*AR2*H[26]  ,  ' DIFF (HI , Y3 ) * ' DIFF (H2 , Y3 ) ,X) ) ) ; 


/* . */ 

/*  THE  MACRO  PICK(XXX)::=  TAKES  ANY  EXPRESSION  XXX  (PREVIOUSLY  EXPANDED)*/ 
/*  AND  SEPARATES  IT  INTO  SINGLE  EXPRESSIONS  LABELED  E(I) .  IT  THEN  CALLS*/ 
/*  MACRO  HRSUB(X)  TO  FIND  THE  APPROPIATE  LAME'  PARAMETERS  APPROXIMATION  */ 
/*  FOR  EACH  EXPRESSION  AND  THEN  SUMS  ALL  THE  EXPRESSIONS  TO  YIELD  THE  */ 
/*  EXPRESSION  XXX  WITH  ALL  THE  TERMS  FULLY  APPROXIMATED.  */ 

/* . */ 

E(I) :=CONCAT(E, I) ; 

PICK (XXX) : :=BUILDQ( [XXX] , ( II : LINENUM, NT :NTERMS (XXX) , 12 : Il+NT-1, 

PRINT  ("  THIS  EXPRESSION  HAS  ",NT,''  TERMS  TO  BE  RESOLVED  "), 


PICKAPART(XXX, 1) ,FOR  K:I1  THRU  12  DO  EXH [K] : EV (E (K) , EVAL) , 
FOR  K:I1  THRU  12  DO  HRSUB (EXH [K] ) , XXX: SUM(EXH [K] , K, II , I2 ) , 
DISPLAY (XXX) ) ) ; 


/* . */ 

/*  USE  THE  MACRO  PICK (XXX)  TO  APPROXIMATE  LAME'  PARAMETER  FUNCTIONS  OF  */ 

/*  THE  STRAIN  COMPONENTS.  */ 

/* . */ 

ERR4:ER[4]  ; 

ERRS : ER [ 5  ]  ; 

PICK(ERR4) ; 
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PICK (ERRS) ; 

ER[4] :ERR4; 

ER[5] :ERR5; 

ERRl : ER [ 1 ] ; 

ERR2 : ER [ 2 ] ; 

ERR6 : ER [ 6 ] ; 

PICK (ERRl) ; 

PICK(ERR2) ; 

PICK(ERR6) ; 

ER[1] :ERR1; 

ER [ 2 ] : ERR2 ; 

ER[6] :ERR6; 

SAVE ( " SPH-ER. SV" , ER)  ; 


/* . */ 

/*  THE  MACRO,  CHIFORM (XX, YY, K) : : =  EXPANDS  A  6x1  VECTOR  CALLED  XX,  THEN  */ 
/*  DETERMINES  AND  DISPLAYS  THE  COEFFICIENTS  OF  Y3  UPTO  THE  Kth  POWER.  */ 
/*  THESE  ARE  CALLED  YY[I,K].  */ 
/* . */ 


CHIFORM(XX, YY,K) : :=BUILDQ( [XX,YY,K) , (FOR  I  THRU  6  DO  FOR  JJ  THRU  K+1  DO 
(XY[I] :FACTOROUT(EXPAND(RAT(XX[I] ) ) , [H1,H2] ) , 

YY[I, JJ-1] :COEFF(XY[I] ,Y3, JJ-1) , DISPLAY (YY [I, JJ-1] )))); 

POWERDISP:TRUE,- 
CHIFORM (ER,XR, 12)  ; 

KILL(ER) ; 

SAVE ( " SPH-XR . SV" , XR) ; 

CLOSEFILE ( ) ; 

QUIT ( ) 
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F.2  SPHINIT.MAC  Input  Deck 


The  MACSYMA  input  deck,  SPHINIT.MAC,  generates  the  (L. )  column  arrays 
and  the  [H-  ]  matrices  for  each  strain  component,  e  . . 


WRITEFILEC'SPH-INIT.WF")  ; 

/************************************************************************/ 
/************************************************************************^ 
/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S .  A.  SCHIMMELS  */ 


/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 

/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 

/*  THE  MASSACHUSETTS. INSTITUTE  OF  TECHNONLOGY  */ 

/*  */ 
/*  PROGRAM  SPHINIT.MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  THE  LHMAT,  */ 
/*  LSMAT,  HMAT,  &  SSMAT  ARRAYS.  */ 


/************************************************************************/ 

/*************★**********************************************************/ 

/*************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/*************************************************************************/ 

[ DYNAMALLOC : TRUE , DISKGC : TRUE , DERIVABBREV ; TRUE , POWERDISP : TRUE ] $ 

/*★***★**★**■*******★★★*********************************★*******************/ 
/*  THE  MACRO  DECOMPOSE (XR) :: =  DETERMINES  AND  DISPLAYS  THE  COEFFICIENTS  OF  */ 
/*  DISPLACEMENT  VARIABLES  Q{1)  THROUGH  Q(18)  AND  CREATES  A  6x13x18  ARRAY  */ 
/*  CALLED  LMAT  OF  THE  CONTANT  COEFFICIENTS  OF  LINEAR  DISPLACEMENT  TERMS,  */ 
/*  AND  A  6x13x18x18  ARRAY  CALLED  HMAT  OF  THE  CONSTANT  COEFFICIENTS  OF  THE  */ 
/*  CONSTANT  COEFFICIENTS  OF  THE  QUADRATIC  DISPLACEMENT  TERMS.  */ 

/**************************************************************************/ 
LOADFILE  (  '■  SPH-XRNEW.  SV"  )  ; 

FOR  I  THRU  6  DO  FOR  JJ  THRU  13  DO  (DISPLAY  (XR [ I , JJ-1] ) ) $ 

DECOMPOSE (XR) : : =BUILDQ ( [XR] , 

(FOR  I  THRU  6  DO  ( PRINT (" DECOMPOSING  STRAIN  COMPONENT",!), 

(FOR  J:0  THRU  12  DO  (FOR  K  THRU  18  DO 
(IF  HIPOW(XR[I, J] ,Q(K) ) =2  THEN 

XQUAD[I, J,K] :RATCOEFF(XR[I, J] ,Q(K) , 2) *Q(K) * 2 +RATCOEFF ( XR [ I , J ] ,Q(K) , 1)  ELSE 
XQUAD[I, J,K] :RATCOEFF(XR[I, J] ,Q(K) ,1) , 

FOR  L  THRU  18  DO  HMAT [ I , J, K, L] : RATCOEFF (XQUAD [ I , J, K] , Q (L) , 1 ) , 

LMAT[I, J,K] : EXPAND (XQUAD [ I, J,K] -SUM(HMAT [I , J, K, L] *Q(L),L,1,18))))))))$ 
DECOMPOSE (XR) ; 


F-11 


KILL(XR) $ 


SAVE( "SPH-LHMAT.SV" ,LMAT,HMAT) ; 


/************************************************************************/ 
/*  GENERATE  ELEMENT-INDEPENDENT  STRAIN  DEFINITION  ARRAYS  LX  AN  HXX  FOR  */ 
/*  IN-PLANE  STRAINS  AND  SX  AND  SSXX  FOR  TRANSVERSE  SHEAR  STRAINS.  X  AND*/ 
/*  XX  REPRESENT  THE  POWER  OF  Y3  FOR  WHICH  THE  COEFFICIENTS  APPLY.  NOTE  */ 
/*  LX  HAS  3  COLUMNS.  COLUMN  1  CONTAINS  COEFFICIENTS  OF  THE  EPSILONll  */ 
/*  TERMS  WHICH  ARE  LINEAR  IN  DISPLACEMENTS  Q(l)-Q(18).  COLUMN  2  */ 

/*  CONTAINS  EPSILON22  TERMS  AND  COLUMN  3  CONTAINS  EPSILON12  TERMS.  */ 

/*  LIKEWISE  HXX  HAS  3  PARTITIONS.  COLUMNS  1-18  CONTAINSS  COEFFICIENTS  */ 
/*  OF  EPSILONll  TERMS  WHICH  ARE  QUADRATIC  IN  DISPLACEMENT.  COLUMNS  19-  */ 
/*  36  CONTAIN  THE  EPSILON22  TERMS  AND  COLUMNS  37-54  CONTAIN  THE  */ 

/*  EPSILON12  TERMS.  SIMILARLY,  SX  CONTAINS  2  COLUMNS  PERTAINING  TO  THE  */ 
/*  COEFFICIENTS  OF  LINEAR  TERMS  OF  EPSILON23  AND  EPSILON133,  */ 

/*  RESPECTIVELY.  SSXX  HAS  2  PARTITIONS.  COLUMNS  1-18  CONTAIN  */ 

/*  COEFFICIENTS  OF  THE  QUADRATIC  TERMS  OF  EPSILON23  AND  COLUMNS  19-36  */ 

/*  CONTAIN  THE  QUADRATIC  TERMS  OF  EPSILON13 .  */ 


/************************************************************************/ 
FOR  NN  THRU  18  DO  { 

L0[NN,1] :LMAT[1, 0,NN] ,L0[NN,2] : LMAT [2 , 0 , NN] ,L0[NN,3] : LMAT [ 6 , 0 , NN] , 

L1[NN, 1] :LMAT[1, 1,NN] ,Ll[NN, 2] : LMAT [2 , 1 , NN] , Ll [NN,3] : LMAT [ 6 , 1 , NN] , 

L2[NN,1] :LMAT[1,2,NN] ,L2[NN,2] : LMAT [2 , 2 , NN] ,L2[NN,3] : LMAT [ 6 , 2 , NN] , 

L3 [NN, 1] :LMAT[1, 3,NN] , L3 [NN,2] : LMAT [2 , 3 , NN] ,L3 [NN, 3] : LMAT [ 6 , 3 , NN] , 

L4[NN,1] :LMAT[1,4,NN] ,L4[NN,2] : LMAT [2 , 4 , NN] ,L4[NN,3] :LMAT [ 6 , 4 , NN] , 

L5 [NN, 1] :LMAT[1, 5,NN] , L5 [NN, 2] : LMAT [2 , 5 , NN] ,L5 [NN, 3] : LMAT [6, 5,NN] , 

L6 [NN, 1] ;LMAT[1, 6,NN] ,L6 [NN,2] : LMAT [2 , 6 , NN] ,L6 [NN, 3] : LMAT [ 6 , 6 , NN] , 

L7 [NN, 1] :LMAT[1, 7,NN] , L7 [NN, 2] : LMAT [2 , 7 , NN] , L7 [NN, 3] : LMAT [ 6 , 7 , NN] , 

S0[NN,1] :LMAT[4, 0,NN] ,S0[NN,2] : LMAT [5 , 0 , NN] , 

SI [NN, 1] :LMAT[4, 1,NN] , SI [NN,2] : LMAT [5 , 1 , NN] , 

S2 [NN, 1] :LMAT[4, 2 ,NN] , S2 [NN, 2] : LMAT [5 , 2 , NN] , 

S3 [NN, 1] :LMAT[4, 3 ,NN] , S3 [NN,2] : LMAT [5 , 3 , NN] , 

S4[NN,1] :LMAT[4, 4,NN] ,S4[NN,2] : LMAT [5 , 4 , NN] , 

S5 [NN, 1] :LMAT[4, 5,NN] , S5 [NN, 2] : LMAT [5 , 5 , NN] , 

S6 [NN, 1] :LMAT[4, 6,NN] , S6 [NN,2] : LMAT [5 , 6 , NN] , 

S7 [NN, 1] :LMAT[4, 7,NN] , S7 [NN, 2] ; LMAT [5 , 7 , NN] , 

FOR  MM  THRU  18  DO  ( 

HO [NN,MM] :HMAT[1, 0,NN,MM] , HO [NN,MM+18] :HMAT [2 , 0 , NN, MM] , 

HO [NN,MM+36] : HMAT [ 6 , 0 , NN, MM] , 

Hi [NN,MM] :HMAT[1, 1,NN,MM] , HI [NN,MM+18] : HMAT [2 , 1 , NN, MM] , 

Hl[NN,MM+36] : HMAT [ 6 , 1 , NN, MM] , 

H2 [NN,MM] :HMAT[1, 2 ,NN,MM] ,H2 [NN,MM+18] :HMAT [2 , 2 , NN, MM] , 

H2 [NN,MM+36] : HMAT [ 6 , 2 , NN,MM] , 

H3 [NN,MM] :HMAT[1,3,NN,MM] , H3 [NN,MM+18] :HMAT[2 , 3 ,NN,MM] , 

H3 [NN,MM+36] : HMAT [ 6 , 3 , NN,MM] , 
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H4[NN,MM] :HMAT[1, 4,NN,MM] , H4 [NN, MM+18 ] : HMAT [2 , 4 , NN, MM] , 

H4 [NN,MM+36] : HMAT [ 6 , 4 , NN, MM] , 

H5 [NN,MM] :HMAT[1, 5,NN,MM] , H5 [NN, MM+18] :HMAT [2 , 5 , NN, MM] , 

H5[NN,MM+36] : HMAT [ 6 , 5 , NN, MM] , 

H6 [NN,MM] :HMAT[1, 6,NN,MM] , H6 [NN, MM+18] :HMAT [2 , 6 , NN, MM] , 

H6 [NN,MM+36] : HMAT [ 6 , 6 , NN, MM] , 

H7[NN,MM] :HMAT[1,7,NN,MM] ,H7 [NN, MM+18] :HMAT [2 , 7 , NN, MM] , 

H7[NN,MM+36] :HMAT [ 6 , 7 , NN, MM] , 

H8 [NN,MM] :HMAT[1, 8,NN,MM] ,H8 [NN, MM+18] :HMAT [2 , 8 , NN, MM] , 

H8[NN,MM+36] : HMAT [ 6 , 8 , NN, MM] , 

H9 [NN,MM] :HMAT[1, 9,NN,MM] ,H9 [NN, MM+18] :HMAT (2 , 9 , NN, MM] , 

H9 [NN,MM+36] : HMAT [ 6 , 9 , NN, MM] , 

H10[NN,MM] :HMAT[1, 10,NN,MM] , HIO [NN, MM+18] :HMAT [2 , 10 , NN, MM] , 

HIO [NN,MM+36] ; HMAT [6, 10, NN, MM] , 

H11[NN,MM] :HMAT[1, 11,NN,MM] , Hll [NN, MM+18] : HMAT [2 , 11 , NN, MM] , 

Hll [NN,MM+36] : HMAT [ 6 , 11 , NN, MM] , 

H12 [NN,MM] :HMAT[1, 12,NN,MM] ,H12 [NN, MM+18] : HMAT [ 2 , 12 , NN, MM] , 

H12 [NN,MM+36] ; HMAT [ 6 , 12 , NN, MM] , 

SSO [NN,MM] : HMAT [4, 0,NN,MM] , SSO [NN, MM+18] : HMAT [ 5 , 0 , NN, MM] , 

SSI [NN,MM] ;HMAT[4, 1,NN,MM] , SSI [NN, MM+18] :HMAT[5, 1,NN,MM] , 

SS2[NN,MM] :HMAT[4, 2,NN,MM] , SS2 [NN, MM+18 ] :HMAT [ 5 , 2 , NN,MM] , 

SS3[NN,MM] :HMAT[4,3,NN,MM] , SS3 [NN, MM+18] :HMAT [ 5 , 3 , NN, MM] , 

SS4[NN,MM] :HMAT[4, 4,NN,MM] , SS4 [NN, MM+18] : HMAT [ 5 , 4 , NN, MM] , 

SS5[NN,MM] :HMAT[4, 5,NN,MM] , SS5 [NN, MM+18 ] : HMAT [ 5 , 5 , NN, MM] , 

SS6[NN,MM] :HMAT[4, 6,NN,MM] , SS6 [NN, MM+18] :HMAT [ 5 , 6 , NN, MM] , 

SS7 [NN,MM] :HMAT[4,7,NN,MM] , SS7 [NN, MM+18] : HMAT [5 , 7 , NN,MM] , 

SS8 [NN,MM] :HMAT[4, 8,NN,MM] ,SS8 [NN, MM+18] :HMAT [ 5 , 8 , NN, MM] , 

SS9 [NN,MM] : HMAT [4, 9,NN,MM] , SS9 [NN, MM+18] : HMAT [5, 9,NN,MM] , 

SS10[NN,MM] : HMAT [4, 10, NN, MM] , SSIO [NN, MM+18] : HMAT [ 5 , 10 , NN, MM] , 

SS11[NN,MM] :HMAT[4, 11,NN,MM] , SSll [NN, MM+18] : HMAT [ 5 , 11 , NN, MM] , 

SS12 [NN,MM] : HMAT [4, 12, NN, MM] , SS12 [NN, MM+18] :HMAT[5, 12,NN,MM] ) ) $ 

/********************************************************+***************/ 
/*  FORM  MACSYMA  MATRICES  FROM  THE  ABOVE  DEFINED  ARRAYS.  */ 

/********★******★*★*★*******★*******************************★************/ 
L0:GENMATRIX(L0,18,3)  ; 

L1:GENMATRIX(L1,18,3); 

L2 :GENMATRIX(L2 ,18,3); 

L3:GENMATRIX(L3,18,3)  ; 

L4 :GENMATRIX(L4, 18,3); 

L5:GENMATRIX(L5,18,3)  ; 

L6 :GENMATRIX(L6, 18,3); 

L7:GENMATRIX(L7,18,3)  ; 

S0:GENMATRIX(S0, 18,2)  ; 

SI : GENMATRIX (Sl,18,2); 

S2:GENMATRIX(S2,18,2) ; 
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S3:GENMATRIX(S3,18,2)  ; 

34 : GENMATRIX (34,18,2); 

S5:GENMATRIX(S5,18,2)  ; 

S6:GENMATRIX{S6,18,2)  ; 

37 : GENMATRIX (37,18,2); 

H0:GENMATRIX(H0,18,54); 

HI  .-GENMATRIX  (HI,  18, 54)  ; 

H2 : GENMATRIX (H2,18,54); 

H3:GENMATRIX(H3,18,54) ; 

H4 : GENMATRIX (H4, 18, 54)  ; 

H5 ; GENMATRIX (H5, 18,54)  ; 

H6:GENMATRIX(H6,18,54)  ; 

H7:GENMATRIX(H7,18,54)  ; 

H8:GENMATRIX(H8,18,54)  ; 

H9 : GENMATRIX (H9, 18, 54)  ; 

H10:GENMATRIX(H10,18,54)  ; 

Hll ; GENMATRIX (Hll, 18, 54)  ; 

H12  .-GENMATRIX  (H12 ,18,54); 

330:GENMATRIX(330,18,36)  ,- 
SS1:GENMATRIX(3S1,18,36) ; 

S32:GENMATRIX(S32,18,36) ; 

3S3:GENMATRIX(333,18,36) ; 

SS4:GENMATRIX(3S4,18,36) ; 

335:GENMATRIX(335,18,36) ; 

336: GENMATRIX (336, 18,36) ; 

3S7:GENMATRIX(3S7,18,36)  ,- 
338  :  GENMATRIX  (338, 18,36)  ,- 
3S9:GENMATRIX(339,18,36) ; 

S310:GENMATRIX(S310,18,36)  ,- 
3311: GENMATRIX (3311, 18, 36) ; 

3312:GENMATRIX(3S12,18,36) ; 

3AVE  (  "  3PH-L3MAT  .  3V"  ,  LO  ,  LI ,  L2  ,  L3  ,  L4 ,  L5 ,  L6 ,  L7 , 30 , 31 , 32 , 33 , 34 , 35 , 36 , 37  )  ,- 

3AVE  (  "  3PH-HMAT  .  3V"  ,  HO  ,  HI ,  H2  ,  H3  ,  H4  ,  H5  ,  H6  ,  H7  ,  H8  ,  H9  ,  HIO  ,  Hll ,  H12  )  ,- 

3AVE  (  ”  3PH-S3MAT  .  3V''  ,  330 , 331 , 332  ,  SS3 , 334 , 335 , 336 , 337 , 338 , 339 , 3310 , 3311 , 3312  ) 

KILL (ALL) $ 

CL03EFILE ( ) ; 

QUIT ( ) ; 
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F.3  SPHK.MAC  Input  Deck 


The  MACSYMA  input  deck,  SPHK.MAC,  generates  all  the  nonzero  entries  of  the 
[^]  matrix  for  a  spherical  shell,  including  transverse  shear  effects. 

WRITEFILE  (  "  SPH-STK .  WF "  )  ; 

/************************************************************************/ 

/************************************************************************/ 

/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S .  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 


/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 
/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 
/*  */ 
/*  PROGRAM  SPH-STK. MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  ELEMENT  */ 
/*  INDEPENDENT  STIFFNESS  ARRAYS  K  &  KS.  */ 


/************************************************************************/ 

/************************************************************************/ 

/************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/************************************************************************/ 
[ DYNAMALLOC : TRUE , DISKGC : TRUE , DERIVABBREV : TRUE , POWERDISP : TRUE ] $ 


/ 
/ 
/ 

/*★******★****★*****★**** ! 

/*  ASSEMBLE  MATRIX  KO  */ 


/******★*********★******* 

LOADFILE ( " SPH-LSMAT .  SV"  )  ; 

/ 

LO : SUBST ( 

[K=K1,C=P1,D=P2] 

,L0) 

LI : SUBST { 

[K=K1,C=P1,D=P2] 

,L1) 

L2 : SUBST ( 

[K=K1,C=P1,D=P2] 

,L2) 

L3 : SUBST ( 

[K=K1,C=P1,D=P2] 

,L3) 

L4 : SUBST ( 

[K=K1,C=P1,D=P2] 

,L4) 

L5 : SUBST ( 

[K=K1,C=P1,D=P2] 

,L5) 

L6 : SUBST 1 

[K=K1,C=P1,D=P2] 

,L6) 

L7 : SUBST ( 

[K=K1,C=P1,D=P2] 

,L7) 

LOT: TRANSPOSE (LO) 
LIT: TRANSPOSE (LI) 
L2T : TRANSPOSE (L2 ) 


/************************************************************************ 
/*  GENERATE  THE  LINEAR  ELEMENT -INDEPENDENT  STIFFNESS  ARRAY  K.  * 

y'************************************************************************ 
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L3T:TRANSPOSE(L3) ; 

L4T: TRANSPOSE (L4) ; 

L5T: TRANSPOSE (L5) ; 

L6T: TRANSPOSE (L6) ; 

L7T: TRANSPOSE (L7) ; 

KM:ZEROMATRIX(18, 18) $ 

FOR  II  THRU  3  DO  FOR  JJ  THRU  3  DO  (PRINT ( II , JJ) , 

KM:KM+A[II, JJ] * (COL{LO, II) .ROW(LOT, JJ) )+ 

DD[II, JJ] * (COL(Ll,II) .R0W(L1T, JJ)+ 

COL(LO,II) .ROW(L2T, JJ)+COL{L2,II) .ROW(LOT, JJ) )+ 
F[II, JJ] *(COL(L2,II) .ROW(L2T,JJ)+ 

COL (LI, II) .ROW(L3T, JJ)+COL(L3, II) .ROW(LlT, JJ) + 
COL(LO, II) .ROW(L4T, JJ)+COL(L4, II) .ROW(LOT, JJ) ) + 
H[II, JJ] * (COL(L3,II) .ROW(L3T, JJ)+ 

COL(L2 ,11) .ROW(L4T, JJ)+COL(L4, II) .R0W(L2T, JJ) + 
COL (LI, II) .ROW(L5T, JJ) +COL(L5, II) .R0W(L1T, JJ) + 
COL(LO,II) .R0W(L6T, JJ)+COL(L6, II) .ROW(LOT,JJ) )+ 
J[II, JJ] * (COL(L4, II) .ROW(L4T, JJ)+ 

COL(L3, II) .ROW(L5T, JJ)+COL(L5, II) . ROW (L3T , JJ) + 
COL(L2,II)  .ROW(L6T, JJ)+COL(L6,  II)  . ROW (L2T, JJ)  + 
COL(Ll, II) .ROW(L7T, JJ)+COL(L7, II) .R0W(L1T, JJ) ) + 
L[II, JJ] * (COL(L5, II) .ROW(L5T, JJ)+ 

COL(L4, II) .ROW(L6T, JJ)+COL(L6, II) .ROW(L4T, JJ) + 
COL(L3,II) .ROW(L7T, JJ)+COL(L7, II) .ROW(L3T, JJ) )+ 
R[II, JJ] * (COL(L6, II) .ROW(L6T, JJ)+ 

COL(L5, II) .ROW(L7T, JJ)+COL(L7, II) .ROW(L5T, JJ) ) ) ; 

SAVE( "SPH-K. SV ,KM) ; 


/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 
/*  NONZERO  ELEMENT  OF  STK(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 
/*  STK(2,2)=A(1,1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED  */ 
/*  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 
/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  STK(18,18)  */ 
/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 
/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 


/************************************************************************/ 
KO : ZEROMATRIX (18,18)$ 

FOR  III  THRU  18  DO  FOR  JJJiIII  THRU  18  DO 
KO [III, JJJ] :KM[III, JJJ] ; 

FRAME ( I, J) :=CONCAT(TK,EV{18* (I-l) +J+1000) ) $ 

FOR  I  THRU  18  DO  FOR  J:I  THRU  18  DO 

(IF  K0[I,J]#0  THEN  (PT : 1 , GENTRAN ( PCSTK [EVAL ( I ) , EVAL ( J) ] : EVAL (KO [ I , J] ) , 
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[EVAL(FRAME(I, J) )])))$ 

IF  PT#1  THEN  GENTRAN(PT:EVAL(PT) , [TT2000] )$ 


/************************************************************************/ 
/*  GENERATE  THE  LINEAR  ELEMENT- INDEPENDENT  STIFFNESS  ARRAY  KS .  */ 

/************************************************************************y 

/************************^ 

/*  ASSEMBLE  MATRIX  KS  */ 

/************************/ 

LOADFILE ( " SPH-LSMAT . SV" )  ; 


SO : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  SO )  ; 

S1:SUBST( [K=K1,C=P1,D=P2]  ,Sl)  ; 

S2 : SUBST ( [K=K1 , C=P1 , D=P2 ] , S2 ) ; 

S3 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  S3  )  ; 

S4 : SUBST ( [K=K1 , C=P1 , D=P2 ] , S4 ) ; 

S5: SUBST ( [K=K1 , C=P1 , D=P2 ] ,S5) ; 

S6 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  S6 )  ; 

S7 : SUBST ( [K=K1 , C=P1 , D=P2 ] , S7 ) ; 

SOT : TRANSPOSE (SO); 

SIT: TRANSPOSE (SI) ; 

S2T: TRANSPOSE (S2)  ; 

S3T: TRANSPOSE (S3)  ; 

S4T : TRANSPOSE ( S4 ) ; 

S5T : TRANSPOSE (S5); 

S6T; TRANSPOSE (S6) ; 

S7T: TRANSPOSE (S7) ; 

KS : ZEROMATRIX (18,18)$ 

FOR  II  THRU  2  DO  FOR  JJ  THRU  2  DO  ( PRINT ( II , JJ) , 

KS:KS+AS[II, JJ] * (COL (SO, II) .ROW(S0T, JJ) ) + 

DS[II, JJ] * (COL(Sl,II) .R0W(S1T, JJ)+ 

COL(S0,II)  .ROW(S2T, JJ)+COL(S2,  II)  .ROW(SOT,JJ) )  + 
FS[II, JJ] * (COL(S2,II) .ROW(S2T, JJ)+ 

COL(Sl, II) .ROW(S3T, JJ)+COL(S3, II) .ROW(SlT, JJ) + 
COL(S0,II) .ROW(S4T, JJ)+COL(S4, II) .ROW(SOT,JJ) )+ 
HS[II, JJ] * (COL(S3, II) .ROW(S3T, JJ) + 

COL(S2 , II) .ROW(S4T, JJ)+COL(S4, II) .ROW(S2T, JJ) + 
COL(Sl, II) .ROW(S5T, JJ)+COL(S5, II) .ROW(SlT, JJ) + 
COL(S0,II) .ROW(S6T, JJ)+COL(S6, II) .ROW(SOT,JJ) )+ 
JS [II, JJ] * (COL(S4, II) .ROW(S4T,JJ)+ 

COL (S3, II) .ROW(S5T, JJ)+COL(S5, II) .ROW(S3T,JJ)+ 
COL(S2,II)  .ROW(S6T, JJ)+COL(S6,  II)  .ROW(S2T, JJ) + 
COL(Sl, II) .ROW(S7T, JJ)+COL(S7, II) .ROW(SlT, JJ) ) + 
LS [II, JJ] * (COL(S5, II) .ROW(S5T, JJ)+ 

COL(S4, II)  .ROW(S6T, JJ)+COL(S6,  II)  .ROW(S4T, JJ)  + 
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C0L(S3,II) .R0W(S7T, JJ)+C0L(S7, II) .R0W(S3T, JJ) )+ 

RS[II, JJ] * (C0L(S6,II) .R0W(S6T, JJ) + 

C0L(S5,II) .ROW(S7T,JJ)+COL{S7,II) .R0W(S5T,JJ) ) ) ; 

SAVE ( " SPH-KS . SV " , KS ) ; 

/************************************************************************/ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 

/*  NONZERO  ELEMENT  OF  STKS(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  STKS(2, 2) =A(1, 1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  */ 

/*  CALLED  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  */ 

/*  AND  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  */ 

/*  STKS(18,18)  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  */ 

/*  BREAK  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  */ 

/*  MANY  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  */ 

/*  LINES  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 

/************************************************************************/ 
KO: ZEROMATRIX(18, 18) $ 

FOR  III  THRU  18  DO  FOR  JJJ:III  THRU  18  DO 
K0[III,JJJ] :KS[III,JJJ] ; 

FRAME (I, J) ;=CONCAT(TKS,EV(18*(I-1)+J+2000) ) ; 

FOR  I  THRU  18  DO  FOR  J:I  THRU  18  DO 

(IF  K0[I,J]#0  THEN  ( PT : 1 , GENTRAN (PCSTKS [EVAL ( I ) , EVAL ( J) ] : EVAL (KO [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

IF  PT#1  THEN  GENTRAN(PT:EVAL(PT) , [TT2000] ) $ 

CLOSEFILE ( ) ; 

QUIT ( ) ; 
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FA  SPHNl. MAC  Input  Deck 


The  MACSYMA  input  deck,  SPHNl. MAC,  generates  all  the  nonzero  entries  of  the 
[/^j]  matrix  for  a  spherical  shell,  including  transverse  shear  effects. 


WRITEFILE ( " SPHNl . WF " ) ; 

/************************************************************************/ 
/************************************************************************^ 
/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 


/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 
/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 
/*  */ 
/*  PROGRAM  SPHNl. MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  ELEMENT  */ 
/*  INDEPENDENT  STIFFNESS  ARRAYS  N1  &  NIS.  */ 


/************************************************************************ y 
/************************************************************************/ 

/************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/************************************************************************/ 
[DYNAMALLOC : TRUE , DISKGC : TRUE , DERIVABBREV: TRUE , POWERDISP : TRUE] $ 

/************************************************************************/ 
/*  GENERATE  THE  NONLINEAR  ELEMENT- INDEPENDENT  STIFFNESS  ARRAY  N1 .  */ 

y'************************************************************************/ 


/******★**★**************/ 
/*  ASSEMBLE  MATRIX  N1  */ 
/************************ / 


TQ:MATRIX{ [Q(l)  , 

Q(2) ,Q(3) ,Qi 

(4) ,Q(5) 

,Q(6) 

,Q(7) , 

Q(8 

) ,Q(9) 

,Q{10 

Q(ll) 

,Q(12) ,Q(13] 

1  ,Q(14) , 

Q(15) 

,Q(16) 

,Q( 

17) ,Q( 

18)  ]  ) 

Q: TRANSPOSE (TQ) ; 

LOADFILE { " SPH-LSMAT .  SV"  )  ; 
LOADFILE ( " SPH-HMAT . SV" ) ; 

L0:SUBST( [K=K1 , C=Pl , D=P2 ] ,L0)$ 
L1:SUBST( [K=K1 , C=Pl , D=P2 ] ,L1)$ 
L2 : SUBST { [K=K1 , C=P1 , D=P2 ] , L2 ) $ 
L3 : SUBST ( [K=K1 , C=P1 , D=P2 ] , L3 ) $ 
L4 : SUBST ( [K=K1 , C=P1 , D=P2 ] , L4 ) $ 
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L5 : SUBST ( [K=K1 , C=Pl , D=P2 ] , L5 ) $ 
L6:SUBST( [K=K1 , C=Pl , D=P2 ] ,L6)$ 

L7 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  L7 ) $ 
LOT : TRANSPOSE (LO) $ 

LIT: TRANSPOSE (LI) $ 

L2T : TRANSPOSE (L2) $ 

L3T ; TRANSPOSE ( L3  )  $ 

L4T : TRANSPOSE ( L4 )  $ 

L5T : TRANSPOSE (L5) $ 

L6T : TRANSPOSE (L6) $ 

L7T : TRANSPOSE { L7 ) $ 

HO : SUBST ( [K=K1 , C=Pl , D=P2  ]  ,  HO  )  $ 

HI : SUBST ( [K=K1 , C=Pl , D=P2 ] , HI ) $ 

H2 : SUBST ( [K=Kl , C=Pl , D=P2 ] , H2 ) $ 

H3 : SUBST ( [K=Kl , C=Pl , D=P2 ] , H3 ) $ 

H4 ; SUBST ( [K=K1 , C=Pl , D=P2 ] , H4 ) $ 

H5 : SUBST ( [K=K1 , C=Pl , D=P2 ] , H5 ) $ 
H6; SUBST ( [K=K1 , C=Pl , D=P2 ] ,H6)$ 

H7  :  SUBST  (  [K=Kl ,  C=Pl ,  D=:P2  ]  ,H7)  $ 

H8 : SUBST ( [K=K1 , C=P1 , D=P2 ] , H8 ) $ 

H9 : SUBST ( [K=K1 , C=P1 , D=P2 ] , H9 ) $ 
H10:SUBST( [K=K1 , C=P1 , D=P2 ] ,H10)$ 
Hll: SUBST ( [K=K1 , C=P1 , D=P2 ] ,H11)$ 
H12 : SUBST ( [K=K1 , C=P1 , D=P2 ] ,H12) $ 

N1 ; ZEROMATRIX (18,18)$ 


FOR  II  THRU  3  DO  FOR  JJ  THRU  3  DO  (PRINT ( II , JJ) , 

(I1:3*(-9*II^2  +  33*II-12) ,  J2 : 3* (9*JJ''2-39*JJ+48 )  , 

Jl:3*  (-9*JJ^2  +  33*JJ-12)  ,  12  :  3*  (9*II''2-39*II+48)  , 

SUBIO ; SUBMATRIX (HO, II, Il-l, 11-2, 11-3, 11-4, 11-5,  11-6,11-7,11-8,11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 
12, 12-1,12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) 
SUBJ0:SUBMATRIX(H0, Jl, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5,  Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7,  J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) 

PRINT ( "HO" , II, JJ) , 

SUBIl: SUBMATRIX (HI, II, Il-l, 11-2,11-3,11-4,11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14, 11-15,11-16,11-17, 
12 , 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14, 12-15,12-16, 12-17) 
SUBJ1:SUBMATRIX(H1,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
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J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "HI” , II, JJ) , 

SUBI2 : SUBMATRIX (H2, II, 11-1,11-2,11-3,11-4,11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ2 : SUBMATRIX (H2,Jl,Jl-l,Jl-2,Jl-3,Jl-4,Jl-5,Jl-6,Jl-7,Jl-8,Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H2" , II, JJ) , 

SUBI3 : SUBMATRIX (H3, II, Il-l, 11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ3 : SUBMATRIX (H3 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5  ,  Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5,  J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H3 " , II,  JJ)  , 

SUBI4 : SUBMATRIX (H4, II, Il-l, 11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17)  , 
SUBJ4 : SUBMATRIX (H4 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H4" , II, JJ) , 

SUBI5 : SUBMATRIX (H5, II, 11-1,11-2,11-3,11-4,11-5,11-6,11-7, 11-8,11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12 , 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ5:SUBMATRIX(H5,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13,  Jl-14,  Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H5" , II, JJ) , 

SUBI6 : SUBMATRIX (H6, II, Il-l, 11-2,11-3,11-4,11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ6 : SUBMATRIX {H6 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 
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PRINT  ("H6'',  II,  JJ)  , 

SUBI7 : SUBMATRIX (H7, II, Il-l, 11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8,11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14, 12-15,12-16,12-17) , 
SUBJ7 : SUBMATRIX (H7 , J1 , Jl-1 , Jl-2 ,i?l-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 

J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H7 " , II, JJ) , 

SUBI8 : SUBMATRIX (H8, II, 11-1,11-2, 11-3,11-4,11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ8:SUBMATRIX(H8,J1, Jl-1, Jl-2,Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7,  J2-8,  J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! ”H8” , II, JJ) , 

SUBI9 : SUBMATRIX (H9, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1,12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ9:SUBMATRIX(H9,J1, Jl-1, Jl-2,Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "H9" , II, JJ) , 

SUBIIO ; SUBMATRIX !H10, 11,11-1,11-2,11-3,11-4,11-5,11-6,11-7 ,11-8,11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12 , 12-1,12-2 , 12-3,12-4,12-5,12-6,12-7 , 12-8 , 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJIO : SUBMATRIX !H10 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15,  Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "HIO" , II, JJ) , 

SUBIll : SUBMATRIX !H11, II, Il-l, 11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ11:SUBMATRIX!H11,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "Hll" , II, JJ) , 
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SUBI12 : SUBMATRIX (H12, II, 11-1,11-2,11-3,11-4, 11-5,11-6,11-7,11-8,11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 
12, 12-1, 12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ12 : SUBMATRIX (H12 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 


PRINT  ( ''H12"  ,  II,  JJ)  , 

N1:N1+A[II,JJ]*( 

COL(L0,II) .TQ.SUBJO+(TQ.COL(LO,II) ) *SUBJ0+SUBI0 . Q . ROW (LOT , JJ) ) , 
PRINT ( "NIA” , II, JJ) , 

N1:N1+DD[II, JJ] * { 

COL(L0, II) .TQ.SUBJ2+(TQ.COL(LO, II) ) *SUBJ2+SUBI2 . Q . ROW(LOT , JJ) + 

COL (LI, II) .TQ.SUBJ1+ (TQ . COL (LI , II) ) *SUBJ1+SUBI1 . Q . ROW (LIT , JJ) + 
COL(L2 ,11) .TQ.SUBJ0+ (TQ.COL(L2, II) ) *SUBJ0+SUBI0 . Q . ROW(L2T , JJ) ) , 
PRINT ( "NIDD" , II, JJ) , 

N1:N1+F[II, JJ] * ( 

COL(L0, II) .TQ.SUBJ4+(TQ.COL(LO, II) ) *SUBJ4+SUBI4 . Q . ROW (LOT, JJ) + 

COL ( LI , 1 1 )  . TQ . SUB J3  + ( TQ . COL ( LI , II ) ) *SUBJ3 +SUBI3 . Q . ROW ( LIT , JJ )  + 
COL(L2, II) .TQ.SUBJ2+(TQ.COL(L2, II) ) *SUBJ2+SUBI2 .Q.ROW(L2T, JJ) + 
COL(L3,II) .TQ.SUBJl+(TQ.COL(L3,II) ) *SUBJ1+SUBI1 . Q . ROW (L3T, JJ) + 
COL(L4, II) .TQ.SUBJO+(TQ.COL(L4, II) ) *SUBJ0+SUBI0 . Q . ROW (L4T, JJ) ) , 
PRINT ( "NlF” , II, JJ) , 

N1:N1+H[II, JJ] * ( 

COL (LO, II)  .TQ.SUBJ6+ (TQ . COL (LO , II ) ) *SUBJ6+SUBI6 . Q . ROW (LOT, JJ)  + 

COL (LI, II)  .TQ.SUBJ5+(TQ.COL(Ll, II) ) *SUBJ5+SUBI5 . Q . ROW (LIT,  JJ)  + 
COL(L2, II) .TQ.SUBJ4+(TQ.COL(L2, II) ) *SUBJ4+SUBI4 . Q . ROW (L2T , JJ) + 
COL(L3 ,11) .TQ.SUBJ3+ (TQ.COL(L3, II) ) *SUBJ3+SUBI3 . Q . ROW (L3T, JJ) + 
COL(L4, II) .TQ.SUBJ2+(TQ.COL(L4, II) ) *SUBJ2+SUBI2 . Q . ROW (L4T , JJ) + 
COL(L5, II) .TQ.SUBJl+(TQ.COL(L5,II) ) *SUBJ1+SUBI1 . Q . ROW(L5T , JJ) + 
COL(L6, II) .TQ.SUBJ0+ (TQ . COL (L6 , II) ) *SUBJ0+SUBI0 . Q . ROW(L6T , JJ) ) , 
PRINT ( "NlH" , II, JJ) , 

N1:N1+J[II, JJ] * ( 

COL(LO, II) .TQ.SUBJ8+(TQ.COL(LO,II) ) *SUBJ8+SUBI8 .Q.ROW(L0T, JJ) + 

COL (LI, II) .TQ.SUBJ7+(TQ.COL(Ll,II) ) *SUBJ7+SUBI7 .Q.ROW(LlT, JJ) + 
COL(L2, II) .TQ.SUBJ6+(TQ.COL(L2,II) ) *SUBJ6+SUBI6 . Q . ROW (L2T, JJ) + 

COL (L3 , II) .TQ. SUBJ5+ (TQ.COL(L3, II) ) *SUBJ5+SUBI5 . Q . ROW (L3T , JJ) + 

COL ( L4 , 1 1 )  . TQ . SUB J4  + ( TQ . COL ( L4 , 1 1 ) ) *SUB J4 +SUBI 4 . Q . ROW ( L4T , J J )  + 
COL(L5, II) .TQ.SUBJ3+(TQ.COL(L5,II) ) *SUBJ3+SUBI3 . Q . ROW (L5T , JJ) + 
COL(L6, II) .TQ.SUBJ2+ (TQ . COL (L6 , II) ) *SUBJ2+SUBI2 . Q . ROW (L6T, JJ) + 
COL(L7,II)  .TQ. SUBJ1+ (TQ.COL(L7, II) ) *SUBJ1+SUBI1 . Q . ROW (L7T,  JJ) )  , 
PRINT ( "NIJ" , II, JJ) , 

N1:N1+L[II, JJ] * ( 

COL(LO,II) .TQ.SUBJ10+(TQ.COL(L0,II) ) *SUBJ10+SUBI10 . Q .ROW (LOT, JJ) + 
COL (LI, II) .TQ. SUBJ9+ (TQ . COL (LI , II ) ) *SUBJ9+SUBI9 . Q . ROW (LIT, JJ) + 
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C0L(L2 , II) .TQ. SUBJ8+(TQ.COL(L2, II) ) *SUBJ8+SUBI8 . Q . ROW (L2T, JJ) + 

COL(L3 , II) .TQ.SUBJ7+(TQ.COL(L3 , II) ) *SUBJ7+SUBI7 . Q . ROW (L3T, JJ) + 

COL(L4, II) .TQ.SUBJ6+(TQ.COL(L4, II) ) *SUBJ6+SUBI6 . Q . ROW (L4T, JJ) + 

COL(L5, II) .TQ.SUBJ5+(TQ.COL(L5,II) ) *SUBJ5+SUBI5 . Q . ROW (L5T, JJ) + 

COL(L6, II) .TQ.SUBJ4+(TQ.COL(L6,II) ) *SUBJ4+SUBI4 . Q . ROW (L6T, JJ) + 
COL(L7,II) .TQ.SUBJ3+(TQ.COL(L7,II) ) *SUBJ3+SUBI3 .Q.ROW(L7T, JJ) ) , 

PRINT ( "NIL" , II, JJ) , 

N1:N1+R[II, JJ] * ( 

COL(L0, II) .TQ.SUBJ12+ (TQ . COL (LO , II) ) *SUBJ12+SUBI12 . Q . ROW (LOT , JJ) + 

COL (LI, II) .TQ.SUBJ11+ (TQ . COL (LI , II) ) *SUBJ11+SUBI11 . Q . ROW (LIT , JJ) + 
COL(L2, II) .TQ.SUBJ10+ (TQ . COL (L2 , II) ) *SUBJ10+SUBI10 . Q . ROW (L2T , JJ) + 

COL (L3 , 1 1 )  . TQ . SUBJ9  + ( TQ . COL ( L3 , II ) ) *SUBJ9+SUBI 9 . Q . ROW ( L3T , JJ )  + 

COL ( L4 , 1 1 )  . TQ . SUB J8  + ( TQ . COL ( L4 , 1 1 ) ) *  SUBJ8 +SUBI 8 . Q . ROW ( L4T , J J )  + 

COL ( L5 , 1 1 )  . TQ . SUB J7  + ( TQ . COL ( L5 , 1 1 ) ) *  SUBJ7  +  SUBI 7 . Q . ROW ( L5T , JJ )  + 

COL (L6 , II ) . TQ . SUBJ6+ (TQ . COL (L6 , II ) ) *SUBJ6+SUBI6 . Q . ROW (L6T , JJ) + 
COL(L7, II) .TQ.SUBJ5+ (TQ.COL(L7, II) ) *SUBJ5+SUBI5 .Q.ROW(L7T, JJ) ) , 

PRINT ( "NIR" , II, JJ) , 

N1:N1+T[II, JJ] * ( 

COL(L2, II) .TQ.SUBJ12+(TQ.COL(L2,II) ) *SUBJ12+SUBI12 . Q . ROW (L2T , JJ) + 
COL(L3, II) .TQ.SUBJll+(TQ.COL(L3, II) ) *SUBJ11+SUBI11 . Q . ROW (L3T , JJ) + 
COL(L4, II) .TQ.SUBJ10+(TQ.COL(L4, II) ) *SUBJ10+SUBI10 . Q . ROW (L4T, JJ) + 
COL(L5, II) .TQ.SUBJ9+(TQ.COL(L5, II) ) *SUBJ9+SUBI9 . Q . ROW (L5T, JJ) + 
COL(L6, II) .TQ.SUBJ8+(TQ.COL(L6, II) ) *SUBJ8+SUBI8 .Q.ROW(L6T, JJ) + 
COL(L7, II) .TQ. SUBJ7+ (TQ.COL(L7, II) ) *SUBJ7+SUBI7 . Q . ROW (L7T , JJ) ) , 

PRINT ("NIT" , II, JJ) , 

N1:N1+XH[II, JJ] * ( 

COL(L4, II) .TQ.SUBJ12+(TQ.COL(L4,II) ) *SUBJ12+SUBI12 . Q . ROW (L4T, JJ) + 
COL(L5, II) .TQ.SUBJ11+ (TQ.COL (L5, II) ) *SUBJll+SUBIll . Q . ROW (L5T, JJ) + 

COL (L6, II) .TQ.SUBJ10+ (TQ . COL (L6 , II) ) *SUBJ10+SUBI10 . Q . ROW (L6T, JJ) + 

COL (L7, II) .TQ. SUBJ9+ (TQ.COL (L7, II) ) *SUBJ9+SUBI9 . Q . ROW (L7T , JJ) ) , 

PRINT ( "NIXH" , II, JJ) , 

N1:N1+XJ[II, JJ] * ( 

COL(L6, II) .TQ.SUBJ12+ (TQ . COL (L6 , II) ) *SUBJ12+SUBI12 . Q . ROW (L6T, JJ) + 
COL(L7,II) .TQ.SUBJll+(TQ.COL(L7,II) ) *SUBJ11+SUBI11 . Q . ROW (L7T , JJ) ) , 
PRINT ( "NIXJ" , II, JJ) , 

KILL  ( SUBJ12  ,  SUBI  12  ,  SUBJll ,  SUBIll ,  SUBJIO  ,  SUBI  10 )  , 

KILL ( SUBJO , SUBJl , SUBJ2 , SUBJ3 , SUBJ4 , SUBJ5 , SUBJ6 , SUBJ7 , SUBJ8 , SUBJ9 ) , 
KILL(SUBIO, SUBIl, SUBI2, SUBI3, SUBI4,SUBI5, SUBI6, SUBI7, SUBI8, SUBI9) ) ) $ 

SAVE ( " SPH-Nl . SV" , N1 ) ; 

KILL (LO , LI , L2 , L3 , L4 , L5 , L6 , L7 , LOT , LIT, L2T , L3T, L4T , L5T , L6T , L7T ) $ 

KILL (HO , HI , H2 , H3 , H4 , H5 , H6 , H7 , H8 , H9 , HIO , Hll , Hl2 ) $ 

NISYM: ZEROMATRIX (18,18)$ 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  NISYM [ II , JJ] : N1 [ II , JJ] $ 

PRINT (" SYMMETRIC  N1  FORMED" )$ 
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KILL(Nl) $ 

N1 :  ZEROMATRIX ( 1 8 , 1 8 ) $ 
KILL(Q,TQ) $ 


/************************************************************************/ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 

/*  NONZERO  ELEMENT  OF  SN1(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  SN1(2,2)=A(1,1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED*/ 

/*  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 

/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN1(18,18)  */ 

/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 

/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 


/************************************************************************/ 
FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO 

N1 [II, JJ] :FACTOROUT{NlSYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7),Q(8), 
Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

FRAMEd,  J)  :=CONCAT(TN,EV(18*  (I-l)+J+1000)  )  $ 

FOR  I  THRU  18  DO  FOR  J:I  THRU  18  DO 

(IF  N1[I,J]#0  THEN  (P1:1,GENTRAN(PCSN1[EVAL(I) ,EVAL(J) ] :EVAL(N1[I,J] ) , 
[EVAL(FRAME(I, J) )])))$ 

IF  PT#1  THEN  GENTRAN{PT:EVAL(PT) , [TT2000] ) $ 

/************************************************************************/ 
/*  GENERATE  THE  NONLINEAR  ELEMENT -INDEPENDENT  STIFFNESS  ARVAY  NIS.  */ 

/************************************************************************/ 


/*  ASSEMBLE  MATRIX  NlS  */ 

TQ : MATRIX ( [Q(l) ,Q(2),Q(3),Q{4),Q(5),Q(6),Q(7),Q(8),Q(9),Q(10), 
Q(11),Q(12),Q(13),Q(14),Q{15),Q{16),Q(17),Q{18)]); 
Q: TRANSPOSE (TQ) ; 

LOADFILE ( " SPH-LSMAT . SV" ) ; 

S0:SUBST( [K=K1 , C=P1 , D=P2 ] ,S0)$ 

S1:SUBST( [K=K1,C=P1,D=P2] ,S1)$ 

S2 : SUBST ( [K=Kl , C=P1 , D=P2 ] , S2 ) $ 

S3 : SUBST ( [K=K1 , C=P1 , D=P2 ] , S3 ) $ 

S4: SUBST ( [K=K1 , C=P1 , D=P2 ] ,S4)$ 

S5: SUBST ( [K=K1 , C=P1 , D=P2 ] ,S5)$ 

S6: SUBST ( [K=K1 , C=P1 , D=P2 ] ,S6)$ 

S7: SUBST ( [K=K1 , C=P1 , D=P2 ] ,S7)$ 
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SOT : TRANSPOSE ( SO  )  $ 

S1T:TRANSP0SE(S1)  $ 

S2T : TRANSPOSE ( S2  )  $ 

S3T: TRANSPOSE (S3)  $ 

S4T : TRANSPOSE ( S4 ) $ 

S5T : TRANSPOSE ( S5 ) $ 

S6T : TRANSPOSE (S6) $ 

S7T : TRANSPOSE (S7)  $ 

LOADFILE ( " SPH-SSMAT . SV" ) ; 

SSO : SUBST ( [K=K1 , C=P1 , D=P2 ] , SSO ) $ 

SS1;SUBST( [K=K1 , C=P1 , D=P2 ] ,SS1)$ 

SS2 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS2 ) $ 

SS3: SUBST ( [K=K1 , C=P1 , D=P2 ] ,SS3)$ 

SS4 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS4 ) $ 

SS5 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS5 ) $ 

SS6 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS6 ) $ 

SS7 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS7 ) $ 

SS8 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS8 ) $ 

SS9 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS9 ) $ 

SS10:SUBST( [K=K1 , C=P1 , D=P2 ] ,SS10)$ 

SSll: SUBST ( [K=K1 , C=P1 , D=P2 ] ,SS11)$ 

SS12:SUBST( [K=K1 , C=Pl , D=P2 ] ,SS12)$ 

N1S;ZER0MATRIX(18, 18) $ 

FOR  II  THRU  2  DO  FOR  JJ  THRU  2  DO  (PRINT ( II , JJ) , 
J2:3*(9*(JJ+l)^2-39*(JJ+l)+48) , 

12  :3*  (9*  (II  +  l)  ''2-39*  (II  +  l)  +48)  , 

SUBISO : SUBMATRIX (SSO, 12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6,12-7,12-8,12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS0:SUBMATRIX(SS0, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6,  J2-7, J2-8, J2-9, 

J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SSO" , II, JJ) , 

SUBISl: SUBMATRIX (SSI, 12, 12-1, 12-2 , 12-3 , 12-4 , 12-5 , 12-6 , 12-7 , 12-8 , 12-9 , 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS1:SUBMATRIX(SS1, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SSI" , II, JJ) , 

SUBIS2 : SUBMATRIX (SS2, 12 , 12-1 , 12-2 , 12-3 , 12-4 , 12-5 , 12 -6 , 12 -7 , 12 -8 , 12-9 , 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS2 :SUBMATRIX(SS2, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS2" , II, JJ) , 
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SUBIS3 : SUBMATRIX {SS3, 12, 12-1, 12-2,12-3,12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS3 : SUBMATRIX (SS3,J2,J2-1, J2-2,J2-3,J2-4, J2-5,J2-6,J2-7, J2 -8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS3 " , II, JJ) , 

SUBIS4 : SUBMATRIX (SS4, 12,12-1, 12-2,12-3,12-4,12-5,12-6,12-7,12-8,12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS4:SUBMATRIX(SS4, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT  ( ''SS4"  ,  II,  JJ)  , 

SUBIS5 : SUBMATRIX (SS5, 12,12-1,12-2,12-3,12-4,12-5,12-6, 12-7,12-8, 12-9, 

12-10, 12-11, 12-12, 12-13,12-14, 12-15, 12-16, 12-17) , 
SUBJS5:SUBMATRIX(SS5, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS5" , II, JJ)  , 

SUBIS6 : SUBMATRIX {SS6, 12, 12-1, 12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS6:SUBMATRIX{SS6, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  ''SS6"  ,  II,  JJ)  , 

SUBIS7 : SUBMATRIX {SS7, 12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS7 : SUBMATRIX (SS7,J2,J2-l,J2-2,J2-3,J2-4,J2-5,J2-6,J2-7,J2-8,J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  ''SS7"  ,  II,  JJ)  , 

SUBIS8 : SUBMATRIX !SS8, 12, 12-1,12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10, 12-11,12-12, 12-13, 12-14, 12-15, 12-16, 12-17) , 
SUBJS8 : SUBMATRIX !SS8,J2,J2-l,J2-2,J2-3,J2-4,J2-5,J2-6,J2-7,J2-8,J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "SS8" , II, JJ) , 

SUBIS9 : SUBMATRIX !SS9, 12, 12-1, 12-2,12-3,12-4,12-5, 12-6,12-7,12-8,12-9, 

12-10, 12-11, 12-'12, 12-13, 12-14,12-15, 12-16,12-17)  , 
SUBJS9:SUBMATRIX!SS9, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6,  J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "SS9" , II, JJ) , 

SUBISIO : SUBMATRIX !SS10, 12,12-1,12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS10;SUBMATRIX!SS10, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "SSIO" , II, JJ) , 

SUBISll: SUBMATRIX !SS11, 12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12 -8, 12-9, 

12-10, 12-11, 12-12,12-13,12-14, 12-15, 12-16, 12-17) , 
SUBJS11:SUBMATRIX!SS11, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! "SSll" , II, JJ) , 

SUBIS12 : SUBMATRIX !SS12, 12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 
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12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS12 : SUBMATRIX (SS12,J2,J2-l,J2-2,J2-3,J2-4,J2-5,J2-6,J2-7,J2-8,J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT  ( ''SS12  " ,  II,  JJ)  , 

N1S:N1S+AS[II, JJ] * ( 

COL(S0,II) .TQ.SUBJSO+(TQ.COL(SO,II) ) *SUBJS0+SUBIS0 .Q.ROW(SOT, JJ) ) , 

PRINT ( "NIAS" , II, JJ) , 

N1S:N1S+DS[II,JJ]*( 

COL (SO, II) .TQ. SUBJS2+ (TQ . COL (SO , II) ) *SUBJS2+SUBIS2 . Q . ROW ( SOT , JJ) + 

COL ( SI , II ) . TQ . SUBJS1+ (TQ . COL ( SI , II ) ) *SUBJS1+SUBIS1 . Q . ROW ( SIT , JJ) + 
COL(S2, II) .TQ.SUBJS0+ (TQ.COL (S2 , II) ) *SUBJS0+SUBIS0 . Q . ROW ( S2T, JJ) ) , 

PRINT ( "NIDS" , II, JJ) , 

N1S:N1S+FS[II, JJ] * ( 

COL (SO, II) .TQ.SUBJS4+ (TQ . COL (SO , II) ) *SUBJS4+SUBIS4 . Q . ROW ( SOT, JJ) + 

COL (SI, II) .TQ. SUBJS3+ (TQ . COL (SI , II) ) *SUBJS3+SUBIS3 . Q . ROW ( SIT, JJ) + 
COL(S2 ,11) .TQ. SUBJS2+ (TQ . COL (S2 , II) ) *SUBJS2+SUBIS2 . Q . ROW ( S2T, JJ) + 

COL ( S3 , II ) . TQ . SUBJS1+ (TQ . COL ( S3 , II ) ) *SUBJS1+SUBIS1 . Q . ROW ( S3T , JJ) + 
COL(S4,II) .TQ.SUBJSO+(TQ.COL(S4,II) ) *SUBJS0+SUBIS0 . Q . ROW ( S4T, JJ) ) , 

PRINT ( "NIFS" , II, JJ) , 

N1S:N1S+HS[II,JJ]*( 

COL (SO, II) .TQ. SUBJS6+ (TQ . COL (SO , II ) ) *SUBJS6+SUBIS6 . Q . ROW ( SOT, JJ) + 

COL ( SI , II ) . TQ . SUBJS5+ (TQ . COL ( SI , II ) ) *SUBJS5+SUBIS5 . Q . ROW ( SIT , JJ) + 

COL ( S2 , II ) . TQ . SUBJS4+ (TQ . COL ( S2 , II ) ) *SUBJS4+SUBIS4 . Q . ROW ( S2T , JJ) + 

COL (S3 ,11) .TQ. SUBJS3+ (TQ . COL (S3 , II) ) *SUBJS3+SUBIS3 . Q . ROW ( S3T, JJ) + 
COL(S4,II) .TQ.SUBJS2+(TQ.COL(S4,II) )*SUBJS2+SUBIS2.Q.ROW(S4T, JJ)+ 

COL ( S5 , II ) . TQ . SUBJS1+ ( TQ . COL ( S5 , II ) ) *SUBJS1+SUBIS1 . Q . ROW ( S5T , JJ) + 
COL(S6,II) .TQ.SUBJSO+(TQ.COL(S6,II) ) *SUBJS0+SUBIS0 . Q . ROW ( S6T , JJ) ) , 

PRINT ("NIHS", II, JJ) , 

N1S:N1S+JS[II, JJ] * ( 

COL ( SO , II ) . TQ . SUBJS8+ (TQ . COL ( SO , II ) ) *SUBJS8+SUBIS8 . Q . ROW ( SOT , JJ) + 

COL (SI, II) .TQ.SUBJS7+ (TQ . COL ( SI , II ) ) *SUBJS7+SUBIS7 . Q . ROW ( SIT , JJ) + 

COL ( S2 , II ) . TQ . SUBJS6+ (TQ . COL ( S2 , II ) ) *SUBJS6+SUBIS6 . Q . ROW ( S2T , JJ) + 

COL ( S3 , II ) . TQ . SUBJS5+ ( TQ . COL ( S3 , II ) ) *SUBJS5+SUBIS5 . Q . ROW ( S3T , JJ) + 
COL(S4, II) .TQ.SUBJS4+ (TQ . COL ( S4 , II ) ) *SUBJS4+SUBIS4 . Q . ROW (S4T , JJ) + 

COL ( S5 , II ) . TQ . SUBJS3+ (TQ . COL ( S5 , II ) ) *SUBJS3+SUBIS3 . Q . ROW (S5T,JJ)+ 
COL(S6, II) .TQ. SUBJS2+ (TQ.COL (S6, II) ) *SUBJS2+SUBIS2 . Q . ROW (S6T, JJ) + 
COL(S7,II) .TQ.SUBJSl+(TQ.COL(S7,II) ) *SUBJS1+SUBIS1 .Q.ROW(S7T, JJ) ) , 

PRINT ( "NIJS" , II, JJ) , 

N1S:N1S+LS[II, JJ] * ( 

COL (SO, II) .TQ.SUBJS10+ (TQ . COL (SO , II ) ) *SUBJS10+SUBIS10 . Q . ROW ( SOT, JJ) + 
COL (SI, II) .TQ.SUBJS9+ (TQ . COL (SI , II) ) *SUBJS9+SUBIS9 . Q . ROW ( SIT, JJ) + 

COL (S2, II) .TQ.SUBJS8+ (TQ . COL (S2 , II) ) *SUBJS8+SUBIS8 . Q .ROW (S2T , JJ) + 

COL (S3, II). TQ. SUB JS7  + (TQ.COL(S3,II))*  SUB JS7  +  SUB I S  7 . Q . ROW ( S  3  T , J J )  + 
COL(S4, II) .TQ.SUBJS6+ (TQ.COL (S4, II) ) *SUBJS6+SUBIS6 . Q . ROW ( S4T, JJ) + 

COL ( S5 , II ) . TQ . SUBJS5+ (TQ . COL ( S5 , II ) ) *SUBJS5+SUBIS5 . Q . ROW ( S5T ,JJ)+ 
COL(S6, II) .TQ.SUBJS4+ (TQ.COL (S6, II) ) *SUBJS4+SUBIS4 . Q . ROW ( S6T , JJ) + 
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C0L(S7, II) .TQ.SUBJS3+(TQ.COL(S7, II) ) *SUBJS3+SUBIS3 .Q.R0W(S7T, JJ) ) , 
PRINT ( "NILS" , II, JJ) , 

N1S:N1S+RS[II, JJ] * ( 

COL (SO, II) .TQ. SUBJS12+ (TQ . COL (SO , II) ) *SUBJS12+SUBIS12 .Q.ROW(S0T, JJ) + 
COL ( Si , II ) . TQ . SUBJS11+ (TQ . COL ( SI , II ) ) *SUBJS11+SUBIS11 . Q . ROW ( SIT , JJ) + 
COL ( S2 , II ) . TQ . SUBJS10+ (TQ . COL ( S2 , II ) ) *SUBJS10+SUBIS10 . Q . ROW ( S2T , JJ) + 
COL ( S3 , II ) . TQ . SUBJS9+ (TQ . COL ( S3 , II ) ) *SUBJS9+SUBIS9 . Q . ROW ( S3T , JJ) + 
COL(S4, II) .TQ.SUBJS8+ (TQ . COL (S4 , II ) ) *SUBJS8+SUBIS8 .Q.ROW(S4T, JJ) + 
COL(S5, II) .TQ.SUBJS7+ (TQ . COL (S5 , II ) ) *SUBJS7+SUBIS7 .Q.ROW(S5T, JJ) + 

COL (S6, II) .TQ.SUBJS6+ (TQ . COL (S6 , II) ) *SUBJS6+SUBIS6 .Q.ROW(S6T, JJ) + 

COL (S7, II) .TQ.SUBJS5+ (TQ . COL (S7 , II ) ) *SUBJS5+SUBIS5 .Q.ROW(S7T, JJ) ) , 
PRINT ( "NIRS" , II, JJ) , 

N1S:N1S+TS[II, JJ]*( 

COL(S2, II) .TQ.SUBJS12+(TQ.COL(S2, II) ) *SUBJS12+SUBIS12 .Q.ROW(S2T, JJ) + 
COL (S3 ,11) .TQ.SUBJS11+ (TQ . COL (S3 , II ) ) *SUBJS11+SUBIS11 . Q . ROW ( S3T, JJ) + 
COL(S4, II) .TQ.SUBJS10+(TQ.COL(S4, II) ) *SUBJS10+SUBIS10 . Q . ROW ( S4T, JJ) + 
COL(S5, II) .TQ.SUBJS9+(TQ.COL(S5,II) ) *SUBJS9+SUBIS9 . Q . ROW ( S5T , JJ) + 

COL ( S6 , II ) . TQ . SUBJS8+ (TQ . COL ( S6 , II ) ) *SUBJS8+SUBIS8 . Q . ROW ( S6T , JJ) + 
COL(S7, II) .TQ.SUBJS7+(TQ.COL(S7,II) ) *SUBJS7+SUBIS7 . Q . ROW ( S7T , JJ) ) , 
PRINT ( "NITS" , II, JJ) , 

N1S:N1S+XHS[II,JJ]*( 

COL ( S4 , II )  . TQ . SUBJS12  + (TQ . COL ( S4 , II ) ) *SUBJS12  +  SUBIS12 . Q . ROW (S4T,JJ)  + 
COL(S5, II) .TQ.SUBJSll+(TQ.COL(S5, II) ) *SUBJS11+SUBIS11 . Q . ROW ( S5T, JJ) + 
COL(S6, II) .TQ.SUBJS10+ (TQ.COL(S6, II) ) *SUBJS10+SUBIS10 . Q . ROW ( S6T, JJ) + 
COL(S7,II) .TQ.SUBJS9+(TQ.COL(S7,II) ) *SUBJS9+SUBIS9 . Q . ROW ( S7T , JJ) ) , 
PRINT ( "NIXHS" , II, JJ) , 

N1S:N1S+XJS [II, JJ] * ( 

COL(S6, II) .TQ.SUBJS12+(TQ.COL(S6, II) ) *SUBJS12+SUBIS12 . Q . ROW ( S6T , JJ) + 
COL(S7,II) .TQ.SUBJSll+(TQ.COL(S7,II) ) *SUBJS11+SUBIS11 . Q . ROW ( S7T , JJ) ) , 
PRINT ( "NIXJS" , II, JJ) , 

KILL  ( SUBJS12  ,  SUBIS12 , SUBJSll , SUBISll , SUBJSIO , SUBISIO ) , 

KILL ( SUBJSO , SUBJSl , SUBJS2 , SUBJS3 , SUBJS4 , SUBJS5 ,  SUBJS6 )  , 

KILL ( SUBJS7 , SUBJS8 , SUBJS9 ) , 

KILL ( SUBISO , SUBISl , SUBIS2 , SUBIS3 , SUBIS4 , SUBIS5 , SUBIS6 ) , 

KILL ( SUBIS7 , SUBIS8 , SUBIS9 ) ) $ 

SAVE( "SPH-NIS.SV" ,N1S) ; 

KILL (SSO , SSI , SS2 , SS3 , SS4 , SS5 , SS6 , SS7 , SS8 , SS9 , SSIO , SSI , SS12 ) $ 

KILL(S0, SI, S2, S3, S4, S5, S6, S7,S0T, S1T,S2T, S3T, S4T, S5T, S6T, S7T) $ 

NISYM: ZEROMATRIX (18,18)$ 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  N1SYM[ II , JJ] :N1S [ II , JJ] $ 

PRINT  ( " SYMMETRIC  N1  FORMED " ) $ 

KILL(N1,N1S) $ 

N1 : ZEROMATRIX (18,18)$ 

KILL(Q,TQ) $ 
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/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 
/*  NONZERO  ELEMENT  OF  SN1S(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 
/*  SN1S(2 , 2) =A(1, 1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED*/ 
/*  TT2XXX,  WHERE  XXX  STARTS  AT  O'fll  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 
/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN1S(18,18)  */ 
/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 
/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 


/************************************************************************ y 

FOR  II  THRU  18  DO  FOR  JJiII  THRU  18  DO 

N1[II, JJ] :FACTOROUT{NlSYM[II, JJ] ,Q(1) ,Q(2) ,Q(3),Q(4),Q(5),Q(6),Q(7),Q(8), 
Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

FRAME(I,J) :=CONCAT(TNS,EV(18* (I-l)+J+1000) )$ 

FOR  I  THRU  18  DO  FOR  J:I  THRU  18  DO 

(IF  N1[I,J]#0  THEN ( PT :1, GENTRAN (PCSN1S[EVAL( I) ,EVAL(J) ] : EVAL (N1 [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

IF  PT#1  THEN  GENTRAN(PT:EVAL (PT) , [TT2000] ) $ 

CLOSEFILE ( ) ; 

QUIT  ( )  ; 
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F.5  SPHN2.B1  Input  Deck 


The  MACSYMA  input  deck,  SPHN2.B1,  generates  all  the  nonzero  entries  of  the 
[iVj]  matrix  for  a  spherical  shell.  Because  the  [7^2]  is  fully  populated,  and  due  to  lim¬ 
ited  disk  space  on  the  SPARC2  workstations,  this  input  deck  calculates  entries  for  rows  1 
through  6  (out  of  a  total  of  18)  of  this  matrix. 


WRITEFILE  (  "  SPHN2  .  WF"  )  ; 

/************************★***********************************************/ 
/************************************************************************/ 
/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S .  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 


/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 
/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 
/*  */ 
/*  PROGRAM  SPHN2.B1:  FOR  A  SPHERICAL  SHELL.  CREATES  ELEMENT  */ 
/*  INDEPENDENT  STIFFNESS  ARRAY  N2 ,  ROWS  1-6.  */ 


/************************************************************************/ 

/************************************************************************/ 

/************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/************************************************************************/ 
[DYNAMALLOC: TRUE, DISKGC: TRUE, DERIVABBREV: TRUE, POWERDISP : TRUE] $ 

/*****************★*★***★★*****************************★*****★***********/ 
/*  GENERATE  THE  NONLINEAR  ELEMENT -INDEPENDENT  STIFFNESS  ARRAY  N2 .  */ 

/*********★***************★*★***★********************★********★**********/ 


^★★★★★★★★**************** ! 

/*  ASSEMBLE  MATRIX  N2  */ 

TQ : MATRIX ( [Q(l) ,Q(2),Q(3),Q(4),Q(5),Q(6),Q(7),Q(8),Q(9),Q(10), 
Q(ll) ,Q(12) ,Q(13) ,Q{14) ,Q{15) ,Q(16) ,Q(17) ,Q{18) ] ) ; 
Q: TRANSPOSE (TQ) ; 


LOADFILE ( 

"SPH-HMAT.SV" ) ; 

HO : SUBST ( 

[K=K1,C=P1,D=P2] 

,H0)$ 

HI : SUBST ( 

[K=K1,C=P1,D=P2] 

,H1)$ 

H2 : SUBST ( 

[K=K1,C=P1,D=P2] 

,H2)$ 

H3 : SUBST ( 

:  [K=K1,C=P1,D=P2] 

,H3)$ 

F-31 


H4 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  H4 ) $ 

H5 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  H5 ) $ 

H6 : SUBST ( [K=K1 , C=P1 , D=P2 ] , H6 ) $ 

H7 : SUBST ( [K=K1 , C=Pl , D=P2 ] , H7 ) $ 

H8 : SUBST ( [K=K1 , C=Pl , D=P2 ] , H8 ) $ 

H9: SUBST ( [K=K1 , C=P1 , D=P2 ] ,H9)$ 

HIO : SUBST ( [K=K1 , C=P1 , D=P2 ] , HIO ) $ 

Hll: SUBST ( [K=K1 , C=Pl , D=P2 ] ,H11)$ 

H12: SUBST ( [K=K1 , C=P1 , D=P2 ] ,H12)$ 

N2 : ZEROMATRIX (18,18)$ 

CA:l/2; 

CB:l/3; 

CC:2/3; 

FOR  II  THRU  3  DO  FOR  JJ  THRU  3  DO  (PRINT ( II , JJ) , 
(I1:3*(-9*II^2+33*II-12) ,  J2 : 3 * ( 9*JJ^2-39* JJ+48 ) , 
jl:3* (_9*jj^2+33*JJ-12) ,  12 : 3* ( 9*11^2-39*11+48 ) , 

SUBIO: SUBMATRIX (HO, II, 11-1,11-2,11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJO : SUBMATRIX (HO, Jl,Jl-l,Jl-2,Jl-3,Jl-4,Jl-5,Jl-6,Jl-7,Jl-8,Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT( "HO" , II, JJ) , 

SUBIl: SUBMATRIX (HI, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2,12-3, 12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJl : SUBMATRIX (Hi, Jl,Jl-l,Jl-2,Jl-3,Jl-4,Jl-5,Jl-6,Jl-7,Jl-8,Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "HI" , II, JJ) , 

SUBI2: SUBMATRIX (H2, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12 , 12-1,12-2,12-3,12-4,12-5,12-6,12-7 , 12-8 , 12-9 , 

12- 10,12-11, 12-12, 12-13, 12-14, 12-15, 12-16, 12-17) , 
SUBJ2 : SUBMATRIX (H2 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H2" , II, JJ) , 

SUBI3 : SUBMATRIX (H3, 11,11-1, 11-2,11-3,11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 
11-10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 
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12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 
12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ3 : SUBMATRIX (H3,Jl,Jl-l,Jl-2,Jl-3,Jl-4,Jl-5,Jl-6,Jl-7,Jl-8,Jl-9, 
Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT! ”H3" , II, JJ) , 

SUBI4: SUBMATRIX (H4, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1,12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ4 : SUBMATRIX (H4 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  "H4''  ,  II,  JJ)  , 

SUBI5 : SUBMATRIX !H5, II, Il-l, 11-2,11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1,12-2,12-3,12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14, 12-15,12-16,12-17) , 
SUBJ5:SUBMATRIX!H5,Jl,Jl-l,Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, J1-11,J1-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  ''H5"  ,  II,  JJ)  , 

SUBI6:SUBMATRIX!H6, II, Il-l, 11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ6:SUBMATRIX!H6,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  "H6''  ,  II,  JJ)  , 

SUBI7 : SUBMATRIX !H7, II, Il-l, 11-2, 11-3,11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12,12-1, 12-2, 12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ7:SUBMATRIX!H7,Jl, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10,  J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT!  "H7''  ,  II,  JJ)  , 

SUBI8 : SUBMATRIX  !H8, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 
11-10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 
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12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ8 : SUBMATRIX (H8 , J1 , Jl-1 , Jl-2 , Jl-3 , Jl-4 , Jl-5 , Jl-6 , Jl-7 , Jl-8 , Jl-9 , 
Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 

J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "H8" , II, JJ) , 

SUBI9 : SUBMATRIX (H9, II, 11-1,11-2, 11-3,11-4,11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ9:SUBMATRIX(H9,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( “HO" , II, JJ) , 

SUBIIO : SUBMATRIX (HIO, 11,11-1, 11-2,11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12 , 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7 , 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17)  , 
SUBJ10:SUBMATRIX{H10,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14,  Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "HIO" , II, JJ) , 

SUBIll : SUBMATRIX (Hll, II, 11-1,11-2, 11-3, 11-4, 11-5, 11-6, 11-7, 11-8, 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12 , 12-1,12-2,12-3,12-4,12-5 , 12-6 , 12-7 , 12-8,12-9 , 

12- 10, 12-11,12-12, 12-13, 12-14, 12-15, 12-16, 12-17) , 
SUBJ11:SUBMATRIX(H11,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6,  Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14, Jl-15, Jl-16, Jl-17, 
J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "Hll" , II, JJ) , 

SUBI12 : SUBMATRIX (HI 2, II , Il-l , 11-2 , 11-3 , 11-4 , 11-5 , 11-6 , 11-7 , 11-8 , 11-9, 

11- 10,11-11,11-12,11-13,11-14,11-15,11-16,11-17, 

12, 12-1, 12-2,12-3, 12-4,12-5, 12-6, 12-7, 12-8, 12-9, 

12- 10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJ12 :SUBMATRIX(H12,J1, Jl-1, Jl-2, Jl-3, Jl-4, Jl-5, Jl-6, Jl-7, Jl-8, Jl-9, 

Jl-10, Jl-11, Jl-12, Jl-13, Jl-14,  Jl-15,  Jl-16, Jl-17, 

J2 , J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7 , J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ("H12", II, JJ) , 

N2 ;N2+  A[II, JJ] * ( SUBIO . Q . TQ . SUBJO+CA* (TQ.SUBJO.Q) *SUBI0) , 

PRINT { "N2A" , II, JJ) , 

N2 :N2+DD[II, JJ] * (CB* ( SUBIO . Q. TQ. SUBJ2+CA* (TQ. SUBIO .Q) *SUBJ2+ 

SUB 1 2 . Q . TQ . SUB JO  +CA* ( TQ . SUB 1 2 . Q ) *  SUB JO )  + 
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SUBI1.Q.TQ.SUBJ1+CA*(TQ.SUBJ1.Q) *SUBI1)  , 


PRINT ( "N2D" , II, JJ) , 

N2 :N2+  F [II, JJ] * (CB* ( SUBIO . Q . TQ. SUBJ4+CA* (TQ. SUBIO .Q) *SUBJ4+ 

SUBI4.Q.TQ.SUBJ0+CA* (TQ.SUBI4.Q) *SUBJ0) + 
CC  * ( SUB 1 1 . Q . TQ . SUB J3  +CA* ( TQ . SUB 1 1 . Q ) *  SUB J3  + 
SUBI3 .Q.TQ.SUBJl+CA* (TQ.SUBI3 .Q) *SUBJ1)+ 
SUBI2 .Q.TQ.SUBJ2+CA* (TQ.SUBJ2 .Q) *SUBI2) , 

PRINT ("N2F", II, JJ) , 

N2 :N2+  H[II, JJ] * (CB* (SUBIO . Q . TQ . SUBJ6+CA* (TQ. SUBIO .Q) *SUBJ6+ 

SUBI 6 . Q . TQ . SUBJO+CA* (TQ . SUB 1 6 . Q) *  SUB JO )  + 
CC* (SUBIl .Q.TQ.SUBJ5+CA* (TQ.SUBIl.Q) *SUBJ5+ 
SUB I 5 . Q . TQ . SUBJl+CA* ( TQ . SUBI5 . Q ) *SUBJ1 ) + 
CC* (SUBI2 .Q.TQ.SUBJ4+CA* (TQ.SUBI2 .Q) *SUBJ4+ 
SUB 1 4  .  Q .  TQ .  SUB  J2  +CA*  ( TQ  .  SUB  1 4  .  Q )  *  SUB  J2  )  + 
SUBI3 .Q.TQ.SUBJ3+CA* (TQ.SUBJ3 .Q) *SUBI3)  , 

PRINT ( "N2H" , II, JJ) , 

N2 :N2+  J[II, JJ] * (CB* { SUBIO . Q .TQ . SUBJ8+CA* (TQ. SUBIO .Q) *SUBJ8+ 

SUBI8 .Q.TQ. SUBJO+CA* (TQ.SUBI8 .Q) *SUBJO) + 
CC* (SUBIl .Q.TQ.SUBJ7+CA* (TQ.SUBIl.Q) *SUBJ7+ 
SUBI7 .Q.TQ.SUBJl+CA* (TQ.SUBI7 .Q) *SUBJ1)+ 
CC* (SUBI2 .Q.TQ.SUBJ6+CA* (TQ.SUBI2 .Q) *SUBJ6+ 
SUBI 6 . Q . TQ . SUB J2  +CA*(TQ.SUBI6.Q)*SUBJ2)  + 
CC* (SUBI3 .Q.TQ.SUBJ5+CA* (TQ.SUBI3 .Q) *SUBJ5+ 
SUBI5.Q.TQ.SUBJ3+CA* (TQ.SUBI5 .Q) *SUBJ3) + 
SUBI 4 .Q.TQ. SUBJ4+CA* (TQ . SUBJ4 . Q) *SUBI4 ) , 

PRINT ( "N2J" , II, JJ) , 

N2 :N2+  L [II, JJ] * (CB* ( SUBIO . Q . TQ . SUBJIO+CA* (TQ. SUBIO .Q) *SUBJ10+ 

SUBIl 0 . Q . TQ . SUBJO+CA* ( TQ . SUBIl 0 . Q ) *  SUB JO )  + 
CC* (SUBIl. Q.TQ. SUBJ9+CA* (TQ.SUBIl.Q) *SUBJ9+ 
SUBI 9 .Q.TQ.SUBJl+CA* {TQ.SUBI9 .Q) *SUBJ1) + 
CC* (SUBI2.Q.TQ.SUBJ8+CA* (TQ.SUBI2 .Q) *SUBJ8+ 
SUBI 8 . Q . TQ . SUB J2  +CA*(TQ.SUBI8.Q)*SUBJ2)  + 
CC* (SUBI3 .Q.TQ.SUBJ7+CA* (TQ.SUBI3 .Q) *SUBJ7+ 
SUBI7 .Q.TQ.SUBJ3+CA* (TQ.SUBI7 .Q) *SUBJ3) + 
CC* (SUBI4.Q.TQ.SUBJ6+CA* (TQ.SUBI4.Q) *SUBJ6+ 

SUB 1 6 . Q . TQ . SUB J4  +CA*(TQ.SUBI6.Q)*SUBJ4)  + 
SUBI5 .Q.TQ.SUBJ5+CA* (TQ.SUBJ5 .Q) *SUBI5) , 

PRINT ( "N2L" , II, JJ) , 

N2 :N2+  R[II, JJ] * (CB* (SUBIO .Q.TQ. SUBJ12+CA* (TQ. SUBIO .Q) *SUBJ12+ 

SUBI12 .Q.TQ. SUBJO+CA* (TQ . SUBI12 . Q) *SUBJO) + 
CC* (SUBIl. Q.TQ. SUBJll+CA* (TQ.SUBIl.Q) *SUBJ11+ 
SUBIll. Q.TQ. SUBJl+CA* (TQ. SUBIll .Q) *SUBJ1) + 
CC* (SUBI2 .Q.TQ. SUB JIO+CA* (TQ.SUBI2 .Q) *SUBJ10+ 
SUBI10.Q.TQ.SUBJ2+CA* (TQ . SUBIIO . Q) *SUBJ2) + 
CC* (SUBI3 .Q.TQ. SUB J9+CA* (TQ.SUBI3 .Q) *SUBJ9+ 
SUBI 9 .Q.TQ. SUBJ3  +CA* (TQ . SUBI 9 . Q ) *  SUB J3 )  + 
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CC*(SUBI4.Q.TQ. SUB J8 +CA*(TQ.SUBI4.Q)*  SUB J  8  + 

SUB 1 8 . Q . TQ . SUB J4  +CA* ( TQ . SUBI 8 . Q ) *  SUB J4 )  + 

CC* (SUBI5 .Q.TQ.SUBJ7+CA* (TQ.SUBI5 .Q) *SUBJ7+ 

SUB 1 7 . Q . TQ . SUB J5 +CA* ( TQ . SUB 1 7 . Q ) *  SUB J5 )  + 
SUBI6.Q.TQ.SUBJ6+CA*(TQ.SUBJ6.Q) *SUBI6) , 

PRINT ( "N2R" , II, JJ) , 

N2:N2+  T[II, JJ] * (CC* (SUBI2 .Q.TQ. SUBJ12+CA* (TQ.SUBI2 .Q) *SUBJ12+ 

SUB 1 1 2 . Q . TQ . SUBJ2  +CA*(TQ.SUBI12.Q)*SUBJ2)  + 
CC* (SUBI3 .Q.TQ.SUBJll+CA* (TQ.SUBI3 .Q) *SUBJ11+ 
SUBI11.Q.TQ.SUBJ3+CA* (TQ . SUBIll . Q) *SUBJ3) + 
CC*(SUBI4.Q.TQ. SUB J1 0  +CA* (TQ.SUBI4.Q)*  SUB J1 0  + 
SUB 1 1 0 . Q . TQ . SUB J4  +CA* ( TQ . SUBI 1 0 . Q ) *  SUB J4 )  + 
CC* (SUBI5.Q.TQ.SUBJ9+CA* (TQ.SUBI5 .Q) *SUBJ9+ 

SUB 1 9 . Q . TQ . SUB J5  +CA  * ( TQ . SUB I9.Q)*SUBJ5)  + 

CC* (SUBI6 .Q.TQ. SUBJ8+CA* (TQ.SUBI6 .Q) *SUBJ8+ 

SUBI8 .Q.TQ.SUBJ6+CA* (TQ. SUBI8 .Q) *SUBJ6) + 
SUBI7 .Q.TQ. SUBJ7+CA* (TQ. SUBJ7 .Q) *SUBI7) , 

PRINT( "N2T" , II, JJ) , 

N2 :N2+XH[II, JJ] * (CC* ( SUBI4 . Q . TQ . SUBJ12+CA* (TQ.SUBI4.Q) *SUBJ12+ 

SUB 1 1 2 . Q . TQ . SUB J4  +CA* (TQ.SUBI12.Q)*SUBJ4)  + 
CC* (SUBI5 .Q.TQ.SUBJll+CA* (TQ.SUBI5 .Q) *SUBJ11+ 

SUB  Ill. Q.TQ.  SUB  J5 +CA*  ( TQ  .  SUB  1 1 1 .  Q )  *  SUB  J5 )  + 
CC* ( SUBI6 .Q.TQ. SUBJIO+CA* (TQ . SUBI6 . Q) *SUBJ10+ 
SUBI10.Q.TQ.SUBJ6+CA* (TQ . SUBIIO . Q) *SUBJ6) + 
CC* (SUBI7.Q.TQ.SUBJ9+CA* (TQ.SUBI7 .Q) *SUBJ9+ 

SUBI 9 . Q . TQ . SUBJ7  +CA* ( TQ . SUBI 9 . Q ) *  SUB J7 )  + 
SUBI8.Q.TQ.SUBJ8+CA*(TQ.SUBJ8.Q) *SUBI8) , 

PRINT ( "N2XH" , II, JJ) , 

N2 :N2+XJ[II, JJ] * (CC* ( SUBI6 . Q . TQ. SUBJ12+CA* (TQ. SUBI6 .Q) *SUBJ12+ 

SUB 1 1 2 . Q . TQ . SUB J6 +CA*(TQ.SUBI12.Q)*SUBJ6)  + 
CC* (SUBI7 .Q.TQ.SUBJll+CA* (TQ.SUBI7 .Q) *SUBJ11+ 
SUBIll .Q.TQ. SUBJ7+CA* (TQ . SUBIll . Q) *SUBJ7) + 
CC* (SUBI8 .Q.TQ.SUBJIO+CA* (TQ.SUBI8 .Q) *SUBJ10+ 
SUBIIO. Q.TQ.SUBJ8+CA* (TQ . SUBIIO . Q) *SUBJ8)+ 
SUBI9 .Q.TQ.SUBJ9+CA* (TQ.SUBJ9 .Q) *SUBI9) , 

PRINT  (  "N2XJ''  ,  II,  JJ)  , 

N2 :N2+XL[II, JJ] * (CC* (SUBI8 . Q . TQ. SUBJ12+CA* (TQ.SUBI8 .Q) *SUBJ12+ 

SUBI 1 2 . Q . TQ . SUBJ8+CA* ( TQ . SUBI 1 2 . Q ) *  SUB J8 )  + 
CC* ( SUB I 9 .Q.TQ. SUBJll+CA* (TQ . SUB I 9 . Q) *SUBJll+ 
SUBIll. Q.TQ.SUBJ9+CA* (TQ . SUBIll . Q) *SUBJ9) + 
SUBIIO. Q.TQ.SUBJ10+CA*(TQ.SUBJ10.Q) *SUBI10) , 
PRINT  (  ''N2XL''  ,  II,  JJ)  , 

N2 :N2+XR[II, JJ] * (CC* (SUBIIO .Q.TQ. SUBJ12+CA* (TQ . SUBIIO . Q) *SUBJ12+ 

SUBI12 .Q.TQ. SUBJlO+CA* (TQ . SUBI12 . Q ) *SUBJ10 ) + 
SUBIll. Q.TQ. SUBJll+CA* (TQ . SUBJll . Q) *SUBI11) , 
PRINT ( "N2XR" , II, JJ) , 
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N2 :N2+XT[II, JJ] * (SUBI12 . Q . TQ . SUBJ12+CA* (TQ . SUBJ12 . Q) *SUBI12) , 

PRINT ( “N2XT" , II, JJ) , 

KILL ( SUBJ12 , SUBI12 , SUBJll , SUBIll , SUBJIO , SUBIIO ) , 

KILL ( SUBJO , SUBJl , SUBJ2 , SUBJ3 , SUBJ4 , SUBJ5 , SUBJ6 , SUBJ7 , SUBJ8 , SUBJ9 ) , 
KILL ( SUBIO , SUBIl , SUBI2 , SUBI3 , SUBI4 , SUBI5 , SUBI6 , SUBI7 , SUBI8 , SUBI9 ) ) ) $ 
KILL (HO , HI , H2 , H3 , H4 , H5 , H6 , H7 , H8 , H9 , HIO , Hll , H12 ) $ 

N2SYM:ZEROMATRIX(18, 18) $ 

SAVE ( " SPH-N2 . SV" , N2 ) $ 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  N2SYM [ II , JJ] ; N2 [ II , JJ] $ 

PRINT ( " SYMMETRIC  N2  FORMED” ) $ 

KILL(N2) $ 

NTEMPl : ZEROMATRIX (18,18)$ 

KILL(Q,TQ)$ 


/************************************************************************/ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 

/*  NONZERO  ELEMENT  OF  SN2(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  SN2 (2, 2) =A(1, 1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED*/ 

/*  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 

/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN2(18,18)  */ 

/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 

/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 

/************************************************************************/ 
FRAMEd,  J)  :=CONCAT(TN,EV(18*(I-1)+J+1000)  )$ 

FOR  11:1  THRU  2  DO  FOR  JJ:II  THRU  18  DO 

NTEMPl [II, JJ] iFACTOROUT (N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 
Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) , Q (15) , Q ( 16 ) , Q ( 17 ) ,Q(18) )$ 


SAVE ( "NTEMPl . SV" , NTEMPl ) ; 

FOR  1:1  THRU  2  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMPl [I, J] #0  THEN  ( PT : 1 , GENTRAN (SN2 [EVAL ( I ), EVAL (J) ]: EVAL (NTEMPl [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

KILL (NTEMPl) $ 

NTEMP2 : ZEROMATRIX (18,18)$ 

FOR  11:3  THRU  4  DO  FOR  JJ:II  THRU  18  DO 

NTEMP2 [II, JJ] :FACT0R0UT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) , Q ( 16 ) , Q ( 17 ) , Q ( 18 ) ) $ 

SAVE ( "NTEMP2 . SV" , NTEMP2 ) ; 
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FOR  1:3  THRU  4  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP2 [I, J] #0  THEN  ( PT : 1 , GENTRAN(SN2 [EVAL ( I ) , EVAL ( J) ] : EVAL (NTEMP2 [ I , J] ) 
[EVAL(FRAME(I, J) )])))$ 

KILL  (NTEMP2)$ 

NTEMP3 : ZEROMATRIX (18,18)$ 

FOR  11:5  THRU  6  DO  FOR  JJ:II  THI«J  18  DO 

NTEMP3 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 
Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) , Q ( 13 ) , Q (14) , Q (15 ) , Q ( 16 ) , Q ( 17 ) , Q ( 18 ) ) $ 

SAVE ( "NTEMP3 . SV" , NTEMP3 ) ; 

FOR  1:5  THRU  6  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP3 [I, J] #0  THEN  ( PT : 1 , GENTRAN(SN2 [EVAL ( I) , EVAL ( J) ] : EVAL (NTEMP3 [ I , J] ) 
[EVAL(FRAME(I, J) )])))$ 

KILL(NTEMP3) $ 

CLOSEFILE ( ) ; 

QUIT ( ) ; 
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F.6  SPHN2.B2  Input  Deck 


The  MACSYMA  input  deck,  SPHN2.B2,  generates  all  the  nonzero  entries  of  the 
[iV2]  matrix  for  a  spherical  shell.  Because  the  [iV2]  is  fully  populated,  and  due  to  lim¬ 
ited  disk  space  on  the  SPARC2  workstations,  this  input  deck  calculates  entries  for  rows  7 
through  12  (out  of  a  total  of  18)  of  this  matrix.  The  only  difference  between  the 
SPHN2.B  1  and  the  SPHN2.B2  input  decks  is  shown  below. 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  N2SYM[ II , JJ] :N2 [ II , JJ] $ 

PRINT (” SYMMETRIC  N2  FORMED" )$ 

KILL(N2) $ 

NTEMP4 : ZEROMATRIX (18,18)$ 

KILL(Q,TQ)$ 


/************************************************************************/ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 

/*  NONZERO  ELEMENT  OF  SN2(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  SN2{2,2)=A(1,1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED*/ 

/*  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 

/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN2(18,18)  */ 

/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 

/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 


/************************************************************************^ 
FRAMEd,  J)  :=CONCAT(TN,EV(18*  (I-l) +J+1000)  )  $ 

FOR  11:1  THRU  2  DO  FOR  JJ:II  THRU  18  DO 

NTEMP4 [II, JJ] :FACTOROUT (N2SYM[II, JJ] ,Q(1) ,Q(2) ,Q(3) ,Q(4) ,Q(5) ,Q(6) ,Q{7) , 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q{13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

SAVE ( "NTEMP4 . SV" , NTEMP4 ) ; 

FOR  1:1  THRU  2  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP4 [I, J] #0  THEN  (PT : 1 , GENTRAN(SN2 [EVAL ( I) , EVAL ( J) ] : EVAL (NTEMP4 [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

KILL(NTEMP4) $ 

NTEMP5 : ZEROMATRIX (18,18)$ 

FOR  11:3  THRU  4  DO  FOR  JJ:II  THRU  18  DO 

NTEMP5 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

SAVE ( "NTEMP5 . SV" , NTEMP5 ) ; 
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FOR  1:3  THRU  4  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP5[I, J]#0  THEN  ( PT : 1 , GENTRAN(SN2 [EVAL ( I ) , EVAL ( J) ] : EVAL (NTEMP5 [ I , J] ) , 
[EVAL(FRAME{I, J) )])))$ 

KILL  (NTEMP5)$ 

NTEMP6 : ZEROMATRIX (18,18)$ 

FOR  11:5  THRU  6  DO  FOR  JJ:II  THRU  18  DO 

NTEMP6 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) , Q ( 15 ) , Q ( 16 ) , Q ( 17 ) , Q ( 18 ) ) $ 

SAVE ( "NTEMP6 . SV" , NTEMP6 ) ; 

FOR  1:5  THRU  6  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP6 [I, J] #0  THEN  ( PT : 1 , GENTRAN(SN2 (EVAL ( I ) , EVAL ( J) ] : EVAL (NTEMP6 [ I , J] ) , 
[EVAL (FRAME ( I, J) )])))$ 

KILL(NTEMP6) $ 

CLOSEFILE ( ) ; 

quit ( ) ; 
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F.7  SPHN2.B3  Input  Deck 


The  MACSYMA  input  deck,  SPHN2.B3  generates  all  the  nonzero  entries  of  the 
[iV2]  matrix  for  a  spherical  shell.  Because  the  [iV2]  is  fully  populated,  and  due  to  lim¬ 
ited  disk  space  on  the  SPARC2  workstations,  this  input  deck  calculates  entries  for  rows  13 
through  18  (out  of  a  total  of  18)  of  this  matrix.  The  only  difference  between  the 
SPHN2.B  1  and  the  SPHN2.B3  input  decks  is  shown  below. 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  N2SYM [ II , JJ] : N2 [ II , JJ] $ 

PRINT (" SYMMETRIC  N2  FORMED" )$ 

KILL(N2) $ 

NTEMP7 : ZEROMATRIX (18,18)$ 

KILL(Q,TQ) $ 


/************************************************************************ ^ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  */ 

/*  NONZERO  ELEMENT  OF  SN2(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  SN2 (2, 2) =A{1, 1) .  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED*/ 

/*  TT2XXX,  WHERE  XXX  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  */ 

/*  CONTINUES  SEQUENTIALLY  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN2(18,18)  */ 

/*  ARE  GENERATED.  THE  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  */ 

/*  STATEMENTS  EXCEEDING  800  INTO  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  */ 
/*  CONTINUATION  LINES.  MACSYMA  AUTOMATICALLY  MAKES  CONTINUATION  LINES  */ 
/*  COMPLETE  WITH  A  LEGAL  CHARACTER  IN  COLUMN  6.  */ 


/************************************************************************/ 
FRAMEd,  J)  :=CONCAT{TN,EV{18*{I-1)+J+1000)  )$ 

FOR  11:1  THRU  2  DO  FOR  JJ:II  THRU  18  DO 

NTEMP7 [II, JJ] :FACTOROUT{N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q{7), 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q{13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

SAVE ( "NTEMP7 . SV" , NTEMP7 ) ; 

FOR  1:1  THRU  2  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP7 [I, J]#0  THEN  ( PT : 1 , GENTRAN (SN2 [EVAL ( I ) , EVAL ( J) ] : EVAL (NTEMP7 [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

KILL(NTEMP7) $ 

NTEMP8 : ZEROMATRIX (18,18)$ 

FOR  11:3  THRU  4  DO  FOR  JJ:II  THRU  18  DO 

NTEMP8 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 

Q(8) ,Q(9) ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

SAVE ( "NTEMP8 . SV" , NTEMP8 ) ; 

FOR  1:3  THRU  4  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP8 [I, J] #0  THEN  ( PT : 1 , GENTRAN (SN2 [EVAL ( I ), EVAL (J) ]: EVAL (NTEMP8 [ I , J] ) , 
[EVAL (FRAME ( I, J) )])))$ 
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KILL  (NTEMP8)$ 


NTEMP9 : ZEROMATRIX (18,18)$ 

FOR  11:5  THRU  6  DO  FOR  JJ:II  THRU  18  DO 

NTEMP9 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7), 

Q(8)  ,Q(9)  ,Q(10)  ,Q(11)  ,Q(12)  ,Q(13i*,Q(14)  , Q ( 15 )  ,  Q ( 16 )  , Q ( 17 )  ,  Q ( 18 )  )  $ 

SAVE ( "NTEMP9 . SV" , NTEMP9 )  ; 

FOR  1:5  THRU  6  DO  FOR  J:I  THRU  18  DO 

(IF  NTEMP9 [I, J] #0  THEN  ( PT : 1 , GENTRAN(SN2 [EVAL ( I ) , EVAL ( J) ] : EVAL (NTEMP9 [ I , J] ) , 
[EVAL(FRAME(I, J) )])))$ 

KILL(NTEMP9) $ 

CLOSEFILE ( ) ; 

QUIT ( ) ; 
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F.8  SPHN2S.MAC  Input  Deck 


The  MACSYMA  input  deck,  SPHN2S.MAC  generates  all  the  nonzero  entries  of 
the  [fl2s]  matrix  for  a  spherical  shell  for  transverse  shear  effects. 

WRITEFILE( "SPHN2S.WF" ) ; 

/************************************************************************/ 

/************************************************************************^ 

/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 


/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 
/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 
/*  */ 
/*  PROGRAM  SPHN2S.B3:  FOR  A  SPHERICAL  SHELL.  CREATES  ELEMENT  */ 
/*  INDEPENDENT  STIFFNESS  ARRAY  N2  &  N2S.  */ 


/****★***★*******★***★**★******★★*******★******★************★************/ 

/*******************************-*****************************************/ 

/************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/************************************************************************/ 
[DYNAMALLOC : TRUE , DISKGC : TRUE, DERIVABBREV; TRUE, POWERDISP : TRUE] $ 

/***★**★★****★***★*******************************************************/ 
/*  GENERATE  THE  NONLINEAR  ELEMENT-INDEPENDENT  STIFFNESS  ARRAY  N2S.  */ 
/************************★************************************★*****★****/ 


/*************************  j 

/*  ASSEMBLE  MATRIX  N2S  */ 

/*************************  j 

TQ:MATRIX( [Q(1),Q(2),Q(3),Q(4),Q(5),Q{6),Q(7),Q{8),Q(9),Q{10), 
Q(11),Q(12),Q(13),Q(14),Q(15),Q(16),Q(17),Q(18)]); 
Q: TRANSPOSE (TQ) ; 

LOADFILE ( " SPH-SSMAT . SV" ) ; 

SSO : SUBST ( [K=K1 , C=Pl , D=P2 ] , SSO ) ; 

SSI : SUBST ( [K=K1 , C=P1 , D=P2 ] , SSl ) ; 

SS2 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS2 ) ; 

SS3 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS3 ) ; 

SS4: SUBST ( [K=K1 , C=P1 , D=P2 ] , SS4) ; 

SS5: SUBST { [K=K1 , C=Pl , D=P2 ] ,SS5) ; 

SS6: SUBST ( [K=K1 , C=P1 , D=P2 ] ,SS6) ; 
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SS7 : SUBST ( [K=K1 , C=P1 , D=P2 ] , SS7 ) ; 

SS8 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  SS8 )  ; 

SS9: SUBST ( [K=K1 , C=P1 , D=P2 ]  ,SS9)  ; 

SS10:SUBST( [K=K1 , C=P1 , D=P2 ] ,SS10) ; 

SSll: SUBST ( [K=K1 , C=P1 , D=P2 ]  ,SS11)  ; 

SS12 : SUBST ( [K=K1 , C=P1 , D=P2 ]  ,  SS12 )  ; 

N2S : ZEROMATRIX ( 18 , 18 )  $ 

CA:l/2; 

CB:l/3; 

CC:2/3; 

FOR  II  THRU  2  DO  FOR  JJ  THRU  2  DO  (PRINT ( II , JJ) , 

(J2  :3*  (9*  (JJ+1)  ''2-39*  (JJ+l)+48)  , 

12:3* (9* (II+l) ^2-39* (II+l) +48) , 

SUBISO ; SUBMATRIX (SSO, 12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS0:SUBMATRIX{SS0, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SSO” , II, JJ) , 

SUBISl : SUBMATRIX (SSI, 12 , 12-1 , 12-2 , 12-3 , 12-4 , 12-5 , 12-6 , 12-7 , 12-8 , 12-9 , 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS1:SUBMATRIX(SS1, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SSI" , II, JJ) , 

SUBIS2 : SUBMATRIX (SS2, 12,12-1,12-2,12-3, 12-4,  12-5,12-6,12-7,12-8,12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS2 :SUBMATRIX(SS2, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS2” , II, JJ) , 

SUBIS3 : SUBMATRIX (SS3 , 12 , 12-1,12-2,12-3,12-4,12-5, 12-6,12-7,12-8,12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS3 :SUBMATRIX(SS3, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 

J2-10, J2-11, J2-12, J2-13, J2-14, J2-15,  J2-16, J2-17) , 

PRINT ( "SS3 " , II, JJ) , 

SUBIS4 : SUBMATRIX (SS4, 12 , 12-1 , 12-2 , 12-3 , 12-4 , 12-5 , 12-6 , 12-7 , 12-8 , 12-9 , 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS4:SUBMATRIX(SS4, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS4" , II, JJ) , 

SUBIS5 : SUBMATRIX (SS5, 12, 12-1, 12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS5 :SUBMATRIX(SS5, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "SS5" , II, JJ) , 

SUBIS6 : SUBMATRIX (SS6, 12, 12-1,12-2,12-3,12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
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SUBJS6:SUBMATRIX(SS6, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT { "SS6" , II, JJ) , 

SUBIS7: SUBMATRIX (337,12,12-1,12-2, 12-3, 12-4, 12-5, 12-6, 12 -7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS7 : SUBMATRIX (337, J2,J2-l,J2-2,J2-3,J2-4,J2-5,J2-6,J2-7,J2-8,J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ("337", II, JJ) , 

SUBIS8: SUBMATRIX (338, 12,12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS8;SUBMATRIX(SS8, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10,  J2-11,  J2-12,  J2-13,  J2-14,  J2-15,,  J2-16,  J2-17)  , 

PRINT ( "338" , II, JJ) , 

SUBIS9: SUBMATRIX (339, 12, 12-1, 12-2, 12-3, 12-4, 12-5, 12-6, 12 -7, 12-8, 12 -9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS9:SUBMATRIX(SS9, J2, J2-1, J2-2, J2-3, J2-4,  J2-5,  J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12,  J2-13, J2-14,  J2-15, J2-16, J2-17) , 

PRINT ( "339" , II, JJ) , 

SUBISIO: SUBMATRIX (3310, 12, 12-1, 12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17)  , 
SUBJS10:SUBMATRIX(SS10, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "3310" , II, JJ) , 

SUBISll: SUBMATRIX (3311, 12, 12-1,12-2,12-3, 12-4, 12-5, 12-6, 12-7, 12-8, 12-9, 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS11:SUBMATRIX(SS11, J2, J2-1, J2-2, J2-3, J2-4, J2-5, J2-6, J2-7, J2-8, J2-9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "3311" , II, JJ) , 

SUBIS12 : SUBMATRIX (3312 , 12 , 12-1 , 12-2 , 12-3 , 12-4 , 12-5 , 12-6 , 12-7 , 12-8 , 12-9 , 

12-10,12-11,12-12,12-13,12-14,12-15,12-16,12-17) , 
SUBJS12 : SUBMATRIX (3312, J2,J2-l,J2-2, J2-3,J2-4,J2-5, J2-6,J2 -7, J2-8,J2 -9, 
J2-10, J2-11, J2-12, J2-13, J2-14, J2-15, J2-16, J2-17) , 

PRINT ( "3312" , II, JJ) , 

N2S:N2S+  A[II, JJ] * ( SUBISO . Q . TQ . SUBJSO+CA* (TQ . SUBJSO . Q) *SUBISO) , 

PRINT ( "N2SA" , II, JJ) , 

N2S:N2S+DD[II, JJ] * (CB* ( SUBISO .Q.TQ. SUBJS2+CA* (TQ . SUBISO . Q) *SUBJS2+ 

SUB 1 3  2 . Q . TQ . SUB JS  0  +CA* (TQ.SUBIS2.Q)*SUBJS0)  + 
SUBISl.Q.TQ.SUBJSl+CA* (TQ . SUBJSl . Q) *SUBIS1) , 

PRINT ( "N2SD" , II, JJ) , 

N2S:N2S+  F[II, JJ] * (CB* (SUBISO .Q . TQ . SUBJS4+CA* (TQ . SUBISO . Q) *SUBJS4+ 

SUBIS4. Q.TQ. SUBJSO+CA* (TQ . SUBIS4 . Q) *SUBJS0) + 

CC* (SUBIS1.Q.TQ.SUBJS3+CA* (TQ . SUBISl . Q ) *SUBJS3+ 
SUBIS3 .Q.TQ.SUBJSl+CA* (TQ . SUBIS3 . Q) *SUBJS1) + 
SUBIS2 .Q.TQ.SUBJS2+CA* (TQ . SUBJS2 . Q) *SUBIS2) , 

PRINT ( "N2SF" , II, JJ) , 

N2S :N2S+  H[II , JJ] * (CB* ( SUBISO . Q.TQ. SUBJS6+CA* (TQ . SUBISO . Q) *SUBJS6+ 
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SUBIS6.Q.TQ.SUBJS0+CA* (TQ . SUBIS6 . Q) *SUBJSO) + 
CC* (SUBIS1.Q.TQ.SUBJS5+CA* (TQ . SUBISl . Q) *SUBJS5+ 
SUBIS5.Q.TQ.SUBJS1+CA*CTQ.SUBIS5.Q) *SUBJS1)+ 
CC* (SUBIS2 .Q.TQ.SUBJS4+CA* (TQ . SUBIS2 . Q) *SUBJS4+ 
SUBIS4.Q.TQ.SUBJS2+CA* (TQ . SUBIS4 . Q) *SUBJS2)+ 
SUBIS3 .Q.TQ.S?ffiJS3+CA* (TQ . SUBJS3 . Q) *SUBIS3) , 

PRINT ("N2SH", II, JJ) , 

N2S:N2S+  J[II, JJ] * (CB* ( SUBISO . Q.TQ . SUBJS8+CA* (TQ . SUBISO . Q) *SUBJS8+ 

SUBIS8 -Q.TQ.SUBJSO+CA* (TQ . SUBIS8 . Q) *SUBJSO) + 
CC* (SUBISl .Q.TQ. SUBJS7+CA* (TQ . SUBISl . Q) *SUBJS7+ 
SUBIS7 .Q.TQ.SUBJSl+CA* (TQ . SUBIS7 . Q) *SUBJS1) + 
CC* (SUBIS2 .Q.TQ.SUBJS6+CA* (TQ . SUBIS2 . Q) *SUBJS6+ 
SUBIS6.Q.TQ.SUBJS2+CA* (TQ . SUBIS6 . Q) *SUBJS2)+ 
CC* (SUBIS3 .Q.TQ.SUBJS5+CA* (TQ.SUBIS3 .Q) *SUBJS5+ 
SUBIS5.Q.TQ.SUBJS3+CA* (TQ . SUBIS5 . Q) *SUBJS3) + 
SUBIS4.Q.TQ.SUBJS4+CA* (TQ . SUBJS4 . Q) *SUBIS4) , 

PRINT ( ”N2SJ" , II, JJ) , 

N2S:N2S+  L[II, JJ] * (CB* ( SUBISO . Q.TQ . SUBJSIO+CA* (TQ . SUBISO . Q) *SUBJS10+ 

SUBISIO. Q.TQ.SUBJSO+CA* (TQ . SUBISIO . Q) *SUBJSO) + 
CC* ( SUBISl .Q.TQ. SUBJS9+CA* (TQ . SUBISl . Q) *SUBJS9+ 
SUBIS9.Q.TQ.SUBJS1+CA*(TQ.SUBIS9.Q) *SUBJS1) + 
CC* (SUBIS2.Q.TQ.SUBJS8+CA* (TQ . SUBIS2 . Q) *SUBJS8+ 
SUBIS8 .Q. TQ. SUBJS2+CA* (TQ . SUBIS8 . Q) *SUBJS2 ) + 
CC* (SUBIS3 .Q.TQ.SUBJS7+CA* (TQ.SUBIS3 .Q) *SUBJS7+ 
SUBIS7 .Q.TQ. SUBJS3+CA* ( TQ . SUBIS7 . Q ) *  SUBJS3 )  + 
CC*(SUBIS4.Q.TQ. SUB JS  6+CA*(TQ.SUBIS4.Q)*  SUB JS  6  + 
SUBIS6 .Q.TQ. SUBJS4+CA* (TQ . SUBIS6 . Q) *SUBJS4 ) + 
SUBIS5 .Q.TQ.SUBJS5+CA* (TQ . SUBJS5 . Q) *SUBIS5) , 

PRINT  ( "N2SL''  ,  II,  JJ)  , 

N2S:N2S+  R[II, JJ] * (CB* ( SUBISO . Q .TQ. SUBJS12+CA* (TQ . SUBISO . Q) *SUBJS12+ 

SUBIS12 .Q.TQ.SUBJSO+CA* (TQ . SUBIS12 . Q) *SUBJSO) + 
CC* ( SUBISl. Q.TQ.SUBJSll+CA* (TQ . SUBISl . Q) *SUBJS11+ 
SUBISll .Q.TQ.SUBJSl+CA* (TQ . SUBISll . Q) *SUBJS1)+ 
CC* (SUBIS2 .Q.TQ.SUBJSIO+CA* (TQ . SUBIS2 . Q) *SUBJS10+ 
SUBISIO. Q.TQ.SUBJS2+CA* (TQ . SUBISIO . Q) *SUBJS2) + 
CC* (SUBIS3 .Q.TQ.SUBJS9+CA* (TQ . SUBIS3 . Q) *SUBJS9+ 
SUBIS9 .Q.TQ.SUBJS3+CA* (TQ . SUBIS9 . Q) *SUBJS3) + 
CC* (SUBIS4.Q.TQ.SUBJS8+CA*(TQ.SUBIS4.Q) *SUBJS8+ 

SUB I S  8 . Q . TQ . SUB JS4 +CA* ( TQ . SUBI S  8.Q)*SUBJS4)  + 
CC*(SUBIS5.Q.TQ. SUB JS7  +CA* ( TQ . SUBI S  5.Q)*SUBJS7  + 
SUBIS7.Q.TQ.SUBJS5+CA* (TQ . SUBIS7 . Q) *SUBJS5) + 
SUBIS6 .Q.TQ.SUBJS6+CA* (TQ . SUBJS6 . Q) *SUBIS6) , 

PRINT ( "N2SR" , II, JJ) , 

N2S:N2S+  T[II, JJ] * (CC* (SUBIS2 .Q.TQ. SUBJS12+CA* (TQ . SUBIS2 . Q) *SUBJS12+ 

SUBIS12.Q.TQ.SUBJS2+CA* (TQ . SUBIS12 . Q) *SUBJS2) + 
CC* (SUBIS3 .Q.TQ.SUBJSll+CA* (TQ . SUBIS3 . Q) *SUBJS11+ 
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SUBIS11.Q.TQ.SUBJS3+CA* (TQ . SUBISll . Q) *SUBJS3) + 

CC  * ( SUBI S4 . Q . TQ . SUB JSl 0  +CA* ( TQ . SUBI S4 . Q ) *  SUB JSl 0  + 
SUBISIO . Q . TQ . SUBJS4+CA* (TQ . SUBISIO . Q) *SUBJS4 ) + 
CC* (SUBIS5.Q.TQ.SUBJS9+CA* (TQ . SUBIS5 . Q) *SUBJS9+ 
SUBIS9 .Q.TQ.SUBJS5+CA* (TQ . SUBIS9 . Q) *SUBJS5)+ 

CC* (SUBIS6.Q.TQ.SUBJS8+CA* (TQ . SUBIS6 . Q) *SUBJS8+ 
SUBIS8.Q.TQ.SUBJS6+CA* (TQ . SUBIS8 . Q) *SUBJS6) + 
SUBIS7 . Q . TQ . SUBJS7+CA* (TQ . SUBJS7 . Q) *SUBIS7 ) , 

PRINT ( "N2ST" , II, JJ) , 

N2S:N2S+XH[II, JJ] * (CC* ( SUBIS4 . Q . TQ . SUBJS12+CA* (TQ. SUBIS4 .Q) *SUBJS12+ 

SUBIS12 .Q.TQ.SUBJS4+CA* (TQ . SUBIS12 . Q) *SUBJS4)+ 
CC* (SUBIS5 .Q.TQ.SUBJSll+CA* (TQ . SUBIS5 . Q) *SUBJS11+ 
SUBISll. Q.TQ.SUBJS5+CA* (TQ . SUBISll . Q) *SUBJS5) + 
CC* (SUBIS6 .Q.TQ.SUBJSIO+CA* (TQ . SUBIS6 . Q) *SUBJS10+ 
SUBISIO. Q.TQ.SUBJS6+CA* (TQ . SUBISIO . Q) *SUBJS6) + 
CC* (SUBIS7 .Q.TQ.SUBJS9+CA* (TQ . SUBIS7 . Q) *SUBJS9+ 
SUBIS9.Q.TQ.SUBJS7+CA* (TQ . SUBIS9 . Q) *SUBJS7)+ 
SUBISa .Q.TQ.SUBJS8+CA* (TQ . SUBJS8 . Q) *SUBIS8) , 

PRINT  (  "N2SXH''  ,  II,  JJ)  , 

N2S:N2S+XJ[II,JJ]*(CC*(SUBIS6.Q.TQ. SUB JS 12+CA*(TQ.SUBIS6.Q)*  SUB JS 12  + 

SUBIS12 . Q -TQ . SUBJS6+CA* (TQ . SUBIS12 . Q) *SUBJS6 ) + 
CC* (SUBIS7. Q.TQ.SUBJSll+CA* (TQ . SUBIS7 . Q) *SUBJS11+ 
SUBISll. Q.TQ.SUBJS7+CA* (TQ . SUBISll . Q) *SUBJS7)+ 
CC*(SUBIS8.Q.TQ. SUB JS 10+CA*(TQ.SUBIS8.Q)*  SUB JS 1 0  + 
SUBISIO. Q.TQ.SUBJS8+CA* (TQ . SUBISIO . Q) *SUBJS8) + 
SUBI S  9 . Q . TQ . SUBJS9  +CA* ( TQ . SUB JS  9 . Q ) *  SUBI S  9 ) , 

PRINT  ("N2SXJ'',  II,  JJ)  , 

N2S:N2S+XL[II, JJ] * (CC* (SUBIS8 . Q . TQ . SUBJS12+CA* (TQ . SUBIS8 . Q) *SUBJS12+ 

SUBIS12 .Q.TQ.SUBJS8+CA* (TQ . SUBIS12 . Q) *SUBJS8) + 
CC* (SUBIS9. Q.TQ.SUBJSll+CA* (TQ . SUBIS9 . Q) *SUBJS11+ 
SUBISll. Q.TQ.SUBJS9+CA* (TQ . SUBISll . Q) *SUBJS9) + 
SUBISIO .Q.TQ.SUBJSIO+CA* (TQ . SUBJSIO . Q) *SUBIS10) , 
PRINT  (  "N2SXL''  ,  II,  JJ)  , 

N2S:N2S+XR[II, JJ] * (CC* ( SUBISIO . Q .TQ. SUBJS12+CA* (TQ . SUBISIO . Q) *SUBJS12+ 

SUBIS12. Q.TQ.SUBJSIO+CA* (TQ . SUBIS12 . Q) *SUBJS10) + 
SUBISll . Q . TQ . SUBJSll+CA* (TQ . SUBJSll . Q) *SUBIS11 ) , 
PRINT ( "N2SXR" , II , JJ) , 

N2S:N2S+XT[II, JJ] * ( SUBIS12 . Q .TQ . SUBJS12+CA* (TQ. SUBJS12 .Q) *SUBIS12) , 
PRINT  (  ''N2SXT"  ,  II,  JJ)  , 

KILL ( SUBJS12 , SUBIS12 , SUBJSll , SUBISll , SUBJSIO , SUBISIO ) , 

KILL ( SUBJSO , SUBJSl , SUBJS2 , SUBJS3 , SUBJS4 , SUBJS5 , SUBJS6 ) , 

KILL ( SUBJS7 , SUBJS8 , SUBJS9 ) , 

KILL ( SUBISO , SUBISl , SUBIS2 , SUBIS3 , SUBIS4 , SUBIS5 , SUBIS6 ) , 

KILL ( SUBIS7 , SUBIS8 , SUBIS9 ) ) ) $ 

KILL (SSO, SSI, SS2,SS3,SS4,SS5,SS6,SS7,SS8,SS9,SS10,  SSI,  SS12)$ 
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SAVE(''SPH-N2S.SV''  ,N2S)  ; 


N2  SYM : ZEROMATRIX (18,18)$ 

FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO  N2SYM [ II , JJ] :N2S [ II , JJ] $ 
PRINT  ("SYMMETRIC  N2S  FORMED” )$ 

KILL(N2S) $ 

N2  : ZEROMATRIX ( 1 8 , 1 8  )  $ 

KILL(Q,TQ)$ 


/**************************************************************************/ 
/*  THE  FOLLOWING  STATEMENTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH  NONZERO  */ 
/*  ELEMENT  OF  SN2S(I,J).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

/*  SN2S(2,2)=A(1,1) .  */ 

/*  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED  TT2XXX,  WHERE  XXX  */ 
/*  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  CONTINUES  SEQUENTIALLY  */ 
/*  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN2S(18,18)  ARE  GENERATED.  THE  */ 

/*  MACSYMA  FUNTION  GENTRAN  WILL  ALSO  BREAK  STATEMENTS  EXCEEDING  800  INTO  */ 
/*  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  CONTINUATION  LINES.  MACSYMA  */ 

/*  AUTOMATICALLY  MAKES  CONTINUATION  LINES  COMPLETE  WITH  A  LEGAL  */ 

/*  CHARACTER  IN  COLUMN  6.  */ 

/**************************************************************************/ 


FOR  II  THRU  18  DO  FOR  JJ:II  THRU  18  DO 

N2 [II, JJ] :FACTOROUT(N2SYM[II, JJ] ,Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7),Q(8), 
Q(9)  ,Q(10) ,Q(11) ,Q(12) ,Q(13) ,Q(14) ,Q(15) ,Q(16) ,Q(17) ,Q(18) )$ 

FRAME ( I, J) : =CONCAT (TNS , EV ( 18* ( I-l) +J+1000 ) ) $ 

FOR  I  THRU  18  DO  FOR  J:I  THRU  18  DO 

(IF  N2[I,J]#0  THEN(PT;1,GENTRAN(SN2S[EVAL(I) ,EVAL(J) ] :EVAL(N2 [I, J] ) , 
[EVAL(FRAME(I, J) )])))$ 

IF  PT#1  THEN  GENTRAN(PT:EVAL(PT) , [TT2000] ) $ 

CLOSEFILE ( ) ; 

QUIT ( ) ; 
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F.9  PLASTRN. MAC  Input  Deck 


The  MACSYMA  input  deck,  PLASTRN.MAC,  accomplishes  several  steps:  (1)  sym¬ 
bolically  generating  the  appropiate  incremental  strain-displacement  relations,  (2)  symboli¬ 
cally  generating  the  Taylor  series  approximations  for  the  60  shell  shape  functions  {tii ), 
(3)  inserting  the  shell  shape  functions  into  the  strain-displacement  relations,  and  (4)  deter¬ 
mining  the  incremental  x]  components  for  each  incremental  strain-displacement  relation 


/* . */ 

/* . */ 

/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS  */ 


/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 
/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  (MATERIAL  AND  GEOMETRIC  */ 

/*  NONLINEARITY  OF  COMPOSITE  SHELL  STRUCTURES)  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 

/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  */ 

/*  */ 

/*  PROGRAM  PLASTRN.MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  THE  */ 

/*  INCREMENTAL  STRAIN-DISPLACEMENT  RELATIONS  BASED  ON  THE  */ 

/*  PRESCRIBED  DISPLACEMENT  FIELD  AND  THEN  GENERATES  AND  SAVES  */ 

/*  THE  APPROPIATE  INCREMENTAL  CHI  COMPONENTS  FOR  EACH  STRAIN  TERM.  */ 

/* . */ 

/* . */ 

/* . */ 

/*  INITIALIZE  THE  MACSYMA  PARAMETERS  AND  DECLARE  THE  VARIABLE  */ 

/*  PROPERTIES  */ 

/* . */ 

[ DYNAMALLOC ; TRUE , DISKGC : TRUE , DERIVABBREV : TRUE , POWERDISP : TRUE ] ; 

DEPENDS ( [U1D,U1R,U2D,U2R,P1,P2,R1,R2,M1,M2,H1,H2] , [Y1,Y2,Y3] ) ; 

DEPENDS( [PSI1,PSI2,PHI1,PHI2,GAMMA1,GAMMA23 , [Yl,Y2] ) ; 

DEPENDS( [THETA1,THETA2,U,V,W,U3] , [Y1,Y2] ) ; 

DECLARE( [R,C,D,AR1,AR2,AR3,AR4,H3] , CONSTANT) ; 


/* . */ 

/*  SET  THE  THEORETICAL  ATTRIBUTES  FOR  A  SPECIFIC  ELEMENTAL  CODE  */ 

/* . */ 


/ 
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/ 


/*  H3  =  1  FOR  A  SHELL  */ 

/* . */ 

H3  : 1  ; 

/* . */ 

/*  ARl  =  0  FOR  A  INCOMPLETE  CUBIC  KINEMATICS  */ 
/*  ARl  =  1  FOR  THE  COMPLETE  QUARTIC  KINEMATICS  */ 

/* . */ 

ARl : 0 ; 


/* . */ 

/*  AR2  =  0  FOR  A  LINEAR  H1/H2  APPROXIMATIONS  */ 

/*  AR2  =  1  FOR  THE  QUADRATIC  APPROXIMATIONS  */ 

/* . */ 

AR2 : 0 ; 

/* . */ 

/*  AR3  =  0  FOR  LINEAR  TRANSVERSE  STRAIN  */ 

/*  AR3  =  1  FOR  NONLINEAR  TRANSVERSE  STRAIN  */ 

/* . */ 

AR3 : 0 ; 


/* . */ 

/*  SUBLIST  IS  A  VARIABLE  CONTAINING  THE  DEFINITIONS  OF  INCREMENTAL  */ 
/*  DISPLACEMENT  PARAMETERS  DQ(1)  THROUGH  DQ(18).  ALL  SYMBOLIC  MANIP-  */ 
/*  ULATION  OF  STRAIN  COMPONENTS  IS  DONE  WITH  THE  NAMES  TO  THE  LEFT  OF  */ 
/*  THE  EQUAL  SIGNS  IN  THE  SUBLIST.  THE  DQ(XX)  DEFINITIONS  ARE  REQUIRED  */ 
/*  ONLY  FOR  GENERATION  OF  ELEMENT  INDEPENDENT  STRAIN  DEFINITION  ARRAYS  */ 
/*  LO  THROUGH  SS12,  ETC.  */ 
/* . */ 


SUBLIST: [DIFF (U , Y1 ) =DQ ( 2 ) , DIFF (U, Y2 ) =DQ ( 3 ) ,U=DQ(1) , DIFF (V, Y1 ) =DQ ( 5 ) , 
DIFF(V,Y2) =DQ(6) ,V=DQ(4) , DIFF (W, Y1 , 2 ) =DQ ( 10 ) , DIFF (W, Y2 , 2 ) =DQ ( 11 ) , 
DIFF(W, Yl, 1, Y2, 1) =DQ(12) , DIFF (W, Yl ) =DQ ( 8 ) , DIFF (W, Y2 ) =DQ ( 9 ) , W=DQ(7) , 
DIFF(PSI1, Yl) =DQ(14) , DIFF (PSIl , Y2 ) =DQ { 15 ) ,PSI1=DQ(13)  , 

DIFF(PSI2 , Yl) =DQ(17) , DIFF (PSI2 , Y2 ) =DQ ( 18 ) , PSI2=DQ(16) ] ; 


/* . */ 

/*  BEGIN  GENERATING  THE  DISPLACEMENT  FIELD  COMPONENTS  U1 ,  U2 ,  U3  THESE  */ 

/*  NEXT  STEPS  HAVE  BEEN  SPECIALIZED  FOR  A  SPHERICAL  SHELL  R1  =  1/D,  */ 

/*  R2  =  1/C,  K  =  -4/(3*H''2).  THE  VALUES  OF  D,  C,  AND  K  WILL  BE  INPUT  */ 

/*  AS  PART  OF  THE  FORTRAN  PROGRAM.  THEY  ARE  UNSPECIFIED  CONSTANTS  AS  */ 

/*  FAR  AS  MACSYMA  IS  CONCERNED  */ 

/* . */ 

P1:U* (1-Y3*D) ; 

P2 :V* (1-Y3*C) ; 

P11:DIFF(U,Y1) * {1-Y3*D) ; 


F-50 


P12 :DIFF(U,Y2) * (1-Y3*D) 
P21:DIFF(V, Yl) * {1-Y3*C) 
P22:DIFF(V,Y2) * (1-Y3*C) 
L11;DIFF{PSI1,Y1) ; 

L12 :DIFF(PSI1, Y2) ; 
L21:DIFF(PSI2,Y1)  ; 

L22 :DIFF(PSI2,Y2)  ; 
M1:K*(DIFF(W,Y1)+PSI1)  ; 
M2 :K* (DIFF(W,Y2) +PSI2)  ; 


/* . */ 

/*  INCOMPLETE  CUBIC  U1  DISPLACEMENT  */ 

/*  OF  DENNIS.  */ 

/* . */ 

U1D:P1+Y3*PSI1+Y3^3*M1; 

/* . */ 

/*  INCOMPLETE  CUBIC  U2  DISPLACEMENT  */ 

/*  OF  DENNIS.  */ 

/* . */ 

U2D:P2+Y3*PSI2+Y3^3*M2; 


*/ 

*/ 

*/ 

*/ 


/* . 

/*  COMPLETE  QUARTIC  U1  &  U2  OF  SMITH  IS  GIVEN  BY  U1  =  UlD  +  UlR  &  U2  = 
/*  U2D  +  U2R,  WHERE  UlR  &  U2R  ARE  THE  CURVATURE  CORRECTION  TERMS. 

/* . 

UlR:  {-Ml*  (1+K*Y3''2)  *Y3^2/  (K/D)  )  ; 

U2R: (-M2* (1+K*Y3 ^2 ) *Y3^2 / (K/C) ) ; 

U1 :U1D+U1R*AR1; 

U2  :U2D+U2R*AR1; 

U3  :W; 


/* . */ 

/*  SYMBOLICALLY  THE  DERIVATIONS  OF  Ul,  U2 ,  AND  U3 .  */ 

/* . */ 


Dull : P11+Y3  *L11+Y3^3*DIFF (Ml , Yl) +AR1*DIFF (UlR, Yl ) 
DU12 :P12+Y3*L12+Y3^3*DIFF(M1,Y2) +AR1*DIFF(U1R, Y2) 
DU21 :  P21+Y3  *L2 1+Y3  -'3  *DIFF  (M2  ,  Yl )  +AR1*DIFF  (U2R,  Yl ) 
DU2  2 : P2  2  +Y3  *L2  2+Y3  ^3  *DIFF (M2 , Y2 ) +AR1*DIFF (U2R, Y2 ) 
DU31:DIFF{U3, Yl) ; 

DU32:DIFF(U3,Y2) ; 
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/* . */ 

/*  SYMBOLICALLY  GENERATE  THE  LAGRANGIAN  GREEN-STRAIN  COMPONENTS  */ 

/*  DIVIDED  BY  THE  APPROPIATE  SHELL  LAME'  PARAMETERS  HI,  H2 ,  TO  GIVE  THE  */ 
/*  PHYSICAL  STRAINS  EPSILONll,  EPSILON22,  EPSILON12,  EPSILON23,  */ 

/*  EPSILON13,  EPSILON33  */ 

/* . */ 

/* . */ 

/*  EPSILONll  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  4  ARE  THE  NONLINEAR  TERMS  */ 

/* . */ 

ER[13 : ( (Hl*DUll+DIFF(Hl, Y2) *H1*U2/H2+DIFF(H1, Y3) *Hl*U3/H3)+ 

1/2* (DU11+DIFF{H1, Y2) *U2/H2+DIFF(H1,Y3)*U3/H3)^2+ 

1/2*  {DU21-DIFF{H1,Y2)  *U1/H2)  ^^2  + 

1/2*  (DU31-DIFF(H1,  Y3)  *U1/H3)  ''2)  /Hl''2; 

/* . */ 

/*  EPSILON22  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 

/*  Through  4  are  the  nonlinear  terms  */ 

/* . */ 

ER[2] : ( (H2*DU22+DIFF(H2,Y1)*H2*U1/H1+DIFF(H2,Y3)*H2*U3/H3)+ 

1/2* (DU22+DIFF(H2 , Yl) *U1/H1+-DIFF(H2,Y3)*U3/H3)^2+ 

1/2*  (DU12-DIFF(H2,Y1)  *U2/H1)''2  + 

1/2*{DU32-DIFF(H2,Y3)  *U2/H3)''2)  /H2^2; 

/* . */ 

/*  EPSILON12  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  4  ARE  THE  NONLINEAR  TERMS  */ 

/* . */ 

ER[6]  :  { (H1*DU12+H2*DU21-DIFF{H2,Y1) *U2-DIFF (HI ,  Y2 ) *U1)  + 

(DU12-DIFF{H2 , Yl) *U2/H1) * (DUll+DIFF (HI , Y2 ) *U2 /H2+DIFF (HI , Y3 ) *U3/H3) + 
(DU21-DIFF (HI, Y2) *Ul/H2) * (DU22+DIFF (H2 , Yl) *U1/H1+DIFF (H2 , Y3 ) *U3/H3) + 
(DU31-DIFF (HI, Y3) *Ul/H3) * (DU32-DIFF (H2 , Y3 ) *U2 /H3 ) ) / (H1*H2) ; 

/* . */ 

/*  EPSILON23  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  8  ARE  THE  NONLINEAR  TERMS.  FORCING  FUNCTION  F(Z)=1+  3*K*Y3"'2  */ 
/*  IS  USED.  THIS  PARABOLIC  FORCING  FUNCTION  APPLIED  ONLY  TO  NONLINEAR  */ 

/ *  TERMS .  * / 

/* . */ 

ER[4] : (DU32+(1-C*Y3)*DIFF(U2,Y3)-U2*(-C) )/(H2*H3) ; 

ERNL[4]  :  ( 1  +  3 *K*Y3 "'2  )  *  ( 

(DIFF (U2 , Y3) -DIFF(H3, Y2) *U3/H2) * 

(DIFF (U2 , Y2) +DIFF(H2, Yl) *U1/Hl+DIFF (H2 , Y3 ) *U3 /H3 ) + 
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(DIFF(U3 , Y2) -DIFF(H2, Y3) *U2/H3) * 

{ DIFF (U3 , Y3 ) +DIFF (H3 , Y1 ) *U1 /Hl+DIFF (H3 , Y2 ) *U2 /H2 ) + 

{DIFF(U1, Y2) -DIFF (H2, Yl) *U2/H1) * 

(DIFF (U1,Y3) -DIFF (H3,Y1) *U3/H1) ) / (H2*H3) ; 

ER[4] :ER[4]+ERNL[4] *AR3 ; 

/* . */ 

/*  EPSIL0N13  COMPONENT  OF  STRAIN.  LINE  1  IS  THE  LINEAR  TERMS.  LINES  2  */ 
/*  THROUGH  8  ARE  THE  NONLINEAR  TERMS.  FORCING  FUNCTION  F(Z)  =1+3*K*Y3''2  */ 
/*  IS  USED.  THIS  PARABOLIC  FORCING  FUNCTION  APPLIED  ONLY  TO  NONLINEAR  */ 


/ *  TERMS .  * / 

/* . */ 


ER[5] : (DU31+(1-D*Y3)*DIFF(U1,Y3)-U1*(-D) )/(Hl*H3) ; 
ERNL[5] : (1+3*K*Y3^2) * ( 

(DIFF (Ul, Y3) -DIFF(H3, Yl) *U3/H1) * 

(DIFF (Ul, Yl) +DIFF(H1, Y2) *U2 /H2+DIFF (HI , Y3 ) *U3/H3) + 
(DIFF(U3, Yl) -DIFF(H1,Y3) *U1/H3) * 

(DIFF(U3 , Y3 ) +DIFF(H3, Yl) *Ul /Hl+DIFF (H3 , Y2 ) *U2 /H2 ) + 
(DIFF(U2 , Yl) -DIFF (HI, Y2) *Ul/H2) * 

(DIFF (U2 , Y3 ) -DIFF (H3 , Y2 ) *U3 /H2 ) ) / (H1*H3 ) ; 

ER ( 5 ] : ER [ 5 ] +ERNL [ 5 ] *AR3 ; 


/* . */ 

/*  EPSILON33  COMPONENT  OF  STRAIN  IS  ZERO.  IT  IS,  HOWEVER,  INCLUDED  IN  */ 
/*  THE  CONSTITUTIVE  RELATIONS  THROUGH  THE  ELASTICITY  SUBROUTINE  OF  THE  */ 

/*  CODE  WRITTEN  BY  DENNIS.  */ 

/* . */ 

ER[3] :0; 


/* . */ 

/*  SUBSTITUTE  THE  Q{1)  THROUGH  Q(18)  DEFINITIONS  OF  SUBLIST  AND  DISPLAY  */ 

/*  THE  STRAIN  COMPONENTS  INDIVIDUALLY.  */ 

/* . */ 

FOR  I  THRU  6  DO  (ER [ I ] : EXPAND (ER [I] ) , 

ER[I] : EXPAND (SUBST (SUBLIST, ER[I] ) ) , DISPLAY (ER [ I ] ) ) ; 


/* . */ 

/*  THE  NEXT  60  EXPRESSIONS  ARE  THE  POSSIBLE  COMBINATIONS  OF  THE  LAME'  */ 
/*  PARAMETERS  APPEARING  IN  THE  STRAIN  EXPRESSIONS  FOR  AN  ARBITRARY  */ 

/ *  SHELL ,  WHERE  H3  =  1 ,  AND  HI ,  H2  DEPEND  UPON  Yl ,  Y2 ,  AND  Y3 .  * / 

/* . */ 

HREXP[1] : (DIFF(H1,Y2) /HI) ; 

HREXP[2] : (DIFF(H1,Y3) /HI) ; 

HREXP[3] : (1/ (Hl^2) ) ; 

HREXP[4]  :  (DIFF  (HI ,  Y2  )  ^2  /  (Hl''2  )  )  ; 
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HREXP[5] : (DIFF (HI , Y2 ) ^2 / (H2^2 ) ) ; 

HREXP[6] : (DIFF (HI , Y3 ) ^2 / (H1^2) ) ; 

HREXP[7]  :  (DIFF  (HI ,  Y3  )  ^^2  )  ; 

HREXP[8]  :  (DIFF  (HI ,  Y2  )  *DIFF  (HI ,  Y3 )  /  (HI ''2)  )  ; 
HREXP[9] : (DIFF (H2 , Y3 ) /H2 ) ; 

HREXP[10] : (DIFF(H2,Y1) /H2) ; 

HREXP[11] : (1/ (H2"2) ) ; 

HREXP[12]  :  ( DIFF  (H2  ,  Y1 ) -^2  /  (H2^2  )  )  ; 

HREXP[13]  :  (DIFF  (H2  ,  Y1 )  ^-2  /  (Hl''2  )  )  ; 

HREXP[14]  ;  (DIFF  (H2  ,  Y3  )  ^^2  /  (H2"2 )  )  ; 

HREXP[15]  :  (DIFF  (H2  ,  Y3  )  ^^2  )  ; 

HREXP[16] : (DIFF (H2 , Y3 ) *DIFF (H2 , Y1 ) / (H2^2) ) ; 
HREXP[17] : (1/H2) ; 

HREXP[18] : (1/Hl) ; 

HREXP[19] : (DIFF(H2,Y1) /HI) ; 

HREXP[20] : (DIFF (HI , Y2 ) /H2 ) ; 

HREXP[21] : (1/ (H1*H2) ) ; 

HREXP[22] : (DIFF(H1,Y3) /H2 ) ; 

HREXP[23] : (DIFF(H2,Y3) /HI) ; 

HREXP[24] : (DIFF (H2 , Y1 ) *DIFF (HI , Y2 ) / (Hl"2) ) ; 
HREXP[25]  ;  (DIFF(H2,  Yl)  *DIFF(H1,Y2)  /  (H2''2)  )  ; 
HREXP[26] : ( DIFF (HI , Y3 ) *DIFF (H2 , Y3 ) ) ; 

HREXP[27]  :  (DIFF  (HI ,  Y3  )  *DIFF  (H2 ,  Yl )  /  (Hl''2)  )  ; 
HREXP[28]  :  (DIFF  (H2  ,  Y3  )  *DIFF  (HI ,  Y2  )  /  (H2''2)  )  ; 
HREXP[29] : (DIFF (HI , Y2 ) / (H1*H2) ) ; 

HREXP[30]  :  (DIFF  (HI ,  Y2  )  ^2  /  (H1''2*H2 )  )  ; 

HREXP[31]  :  (DIFF  (HI ,  Y2  )  ^2/  (H2"'2*H1)  )  ; 

HREXP[32] : (DIFF (Hi , Y3 ) ^2 /HI ) ; 

HREXP[33]  :  (DIFF(H1,Y2)  /  (Hl''2)  )  ; 

HREXP[34]  :  (DIFF(H1,Y3)  /  (Hl''2)  )  ; 

HREXP[35]  :  (DIFF(H1,  Y2)  *DIFF  (HI ,  Y3  )  /  (H1''2*H2)  ) 
HREXP[36] : (DIFF(H2,Y1) / (H1*H2) ) ; 

HREXP[37]  ;  (DIFF(H2,  Yl)  -'2/  (H1*H2^2)  )  ; 

HREXP[38] : (DIFF (H2 , Yl) ^2/ (H2*H1^2) ) ; 

HREXP[39] : (DIFF (H2 , Y3 ) ^2 /H2 ) ; 

HREXP[40]  :  (DIFF(H2,Y1)  /  (H2''2)  )  ; 

HREXP[41]  :  (DIFF  (H2  ,  Y3  )  *DIFF  (H2  ,  Yl )  /  (H1*H2''2)  ) 
HREXP[42] : (DIFF (H2 , Y3 ) / (H2^2) ) ; 

HREXP[43]  :  (DIFF  (HI ,  Y2  )  /  (H2''2)  )  ; 

HREXP[44] : (DIFF(H2,Y1) / (H1^2) ) ; 

HREXP[45] : (DIFF (HI , Y3 ) / (H1*H2) ) ; 

HREXP[46] : (DIFF(H2,Y3) / (H1*H2) ) ; 

HREXP[47] : (DIFF (H2 , Yl) *DIFF(H1, Y2) / (H1^2*H2) ) 
HREXP[48] : (DIFF(H1,Y2) *DIFF(H2,Y1) / (H2^2*H1) ) 
HREXP[49]  :  (DIFF(H1,  Y3)  *DIFF(H2,Y1)  /  (H1''2*H2)  ) 
HREXP[50]  ;  (DIFF  (H2  ,  Y3  )  *DIFF  (HI ,  Y2 )  /  (H2''2*H1 )  ) 
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HREXP[51] : (DIFF(H1, Y3) *DIFF (H2 , Y3 ) /H2 ) ; 

HREXP[52] : (DIFF{H1, Y3) *DIFF(H2,Y3) /HI) ; 

HREXP[53]  :  (DIFF  (HI ,  Y2  )  ^^2  /  (H1''2*H2''2 )  )  ; 

HREXP[54]  :  (DIFF(H1,Y2)  /  (H1''2*H2)  )  ; 

HREXP[55]  :  (DIFF  (H2  ,  Y1 )  ^^2  /  (H1''2*H2''2)  )  ; 

HREXP[56] : {DIFF(H2,Yl) / (H2^2*H1) ) ; 

HREXP[57]  :  (DIFF  (HI ,  Y2  )  /  (H1*H2''2)  )  ; 

HREXP[58]  :  (DIFF(H2,  Yl)  /  (H2*H1''2)  )  ; 

HREXP[59]  :  (DIFF(H2  ,  Yl)  *DIFF  (HI ,  Y2 )  /  (Hl''2 *H2''2 )  )  ; 
HREXP[60] : (DIFF(H1,Y3) *DIFF(H2,Y3) / (H1*H2) ) ; 


/* . */ 

/*  THE  MACRO  HRTAY (X, I ) : : =  GENERATES  THE  COEFFICIENTS  F,  G,  AND  H  OF  THE*/ 
/*  TAYLOR'S  SERIES  EXPANSION  OF  THE  EXPRESSION  X  ABOUT  THE  POINT  Y3  =  0  */ 
/*  FOR  A  SPHERICAL  SHELL  WITH  HI  =  1  -  Y3/R1  AND  H2  =  1  -  Y3/R2.  */ 
/* . */ 


HRTAY (X, I) : : =BUILDQ ( [X, I] , ( 

PRINT ("  THE  TAYLOR  SERIES  EXPANSION  OF  "), DISPLAY (X) , 
PRINTC  IS  EQUAL  TO  F  +  G*Y3  +  H*Y3^2  +  H.O.T.,  WHERE  "), 
( X : TAYLOR ( FACTOROUT ( EXPAND ( RAT (EV(X,Hl=(l-Y3*D), 
H2=(1-Y3*C) ,DIFF) ) ) ,C,D) ,Y3,0,3) )  , 

F[I] : EXPAND (COEFF(X,Y3, 0) ) , DISPLAY (F [I] ) , 

G[I] : EXPAND (COEFF(X,Y3,l) ) , DISPLAY(G[I] ) , 

H[I] : EXPAND (COEFF (X, Y3 , 2) ) , DISPLAY (H[I] ) ) ) ; 


/* . */ 

/*  COMPUTE  THE  COEFFICIENTS  F,  G,  AND  H  FOR  ALL  60  HREXP  EXPRESSIONS.  */ 

/* . */ 

FOR  I  THRU  60  DO  HRTAY ( HREXP [ I ] , I ) ; 

/* . */ 

/*  THE  MACRO  HRSUB(X) : :=  TAKES  ANY  ONE-TERM  EXPRESSION  X,  (PRODUCTS  ARE  */ 
/*  OK,  BUT  [+-]  OPERATORS  ARE  NOT)  AND  SUBSTITUTES  THE  APPROXIMATE  */ 

/*  SERIES  EXPANSION  F  +  G*Y3  +  H*Y3"'2  FOR  THE  FUNCTION  OF  LAME'  */ 

/ *  PARAMETERS .  * / 

/* . */ 


HRSUB(X)  :  : =BUILDQ (  [X]  ,  ( 

XO:X, 

X:NUM(X) /SUBST(D[1] ,Hl,DENOM(X) ) , 

X:NUM(X) /SUBST(D[2] ,H2,DENOM(X) ) , 

X:NUM(X) /RATSUBST(D[3] ,D[1] *D[1] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[4] ,D[2] *D[2] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[5] ,D[1] *D[2] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[6] ,D[1] *D[4] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[7] ,D[2] *D[3] ,DENOM(X) ) , 
X:NUM(X) /RATSUBST(D[8] ,D[3] *D[4] ,DENOM(X) ) , 
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XD:X, 

X:NUM(X) /RATSUBST{1/D[1] ,D[1] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST{1/D[2] ,D[2] ,DENOM{X) ) , 

X:NUM(X) /RATSUBST{1/D[3] ,D[3] ,DENOM(X) ) , 

X:NUM{X) /RATSUBST(1/D[4] ,D[4] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[5] ,D[5] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[6] ,D[6] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[7] ,D[7] ,DENOM(X) ) , 

X:NUM(X) /RATSUBST(1/D[8] ,D[8] ,DENOM(X) ) , 

XN:X, 

X:RATSUBST(F[59]+Y3*G[59]+Y3^2*AR2*H[59]  ,  ' DIFF (H2 , Y1 ) * ' DIFF (HI , Y2 ) *D [ 8 ] ,X) , 
X:RATSUBST(F[55]+Y3*G[55]+Y3''2*AR2*H[55] , ' DIFF (H2 , Y1 ) "2 *D [ 8 ] ,X) , 
X:RATSUBST(F[53]+Y3*G[53]+Y3"2*AR2*H[53] ,  ' DIFF (Hi , Y2 ) ''2 *D [ 8 ] ,X)  , 
X:RATSUBST(F[50]+Y3*G[50]+Y3''2*AR2*H[50] , ' DIFF (H2 , Y3 ) * ' DIFF (HI , Y2 ) *D [ 6 ] ,X) , 
X; RATSUBST (F [49 ] +Y3  *G [49 ] +Y3''2*AR2*H[49] ,  ' DIFF (Hi , Y3 ) * ' DIFF (H2 , Y1 ) *D [7 ]  , X) , 
X:RATSUBST (F [48] +Y3 *G [48 ] +Y3''2*AR2 *H[48 ] , 'DIFF (Hi , Y2) * ' DIFF (H2 , Yl) *D[6] ,X) , 
X; RATSUBST (F [47 ] +Y3  *G [47 ] +Y3''2*AR2*H[47 ]  ,  ' DIFF (H2 , Yl ) * ' DIFF (HI , Y2 ) *D [7 ]  , X)  , 
X: RATSUBST (F [41 ] +Y3  *G [41] +Y3^2*AR2*H[41]  ,  ’ DIFF (H2 , Y3 ) * ' DIFF (H2 , Yl ) *D [6] , X)  , 
X:  RATSUBST  (F  [38]  +Y3*G  [38]  +Y3  ^2*AR2  *H  [38  ]  ,  'DIFF  (H2  ,  Yl )  "'2  *D  [  7  ]  ,X)  , 
X:RATSUBST(F[37]+Y3*G[37]+Y3''2*AR2*H[37]  ,  '  DIFF  (H2  ,  Yl ) -'2  *D  [  6  ]  ,X)  , 
X:RATSUBST(F[35]+Y3*G[35]+Y3^2*AR2*H[35] , ' DIFF (Hi , Y2 ) * ' DIFF (HI , Y3 ) *D [7 ] ,X) , 
X:RATSUBST(F[31]+Y3*G[31]+Y3^2*AR2*H[31] , ' DIFF (Hi , Y2 ) ^2*D [ 6 ] ,X) , 
X:RATSUBST(F[30]+Y3*G[30]+Y3''2*AR2*H[30]  ,  '  DIFF  (Hi ,  Y2 ) -^2  *D  [7  ]  ,X)  , 
X:RATSUBST(F[58]+Y3*G[58]+Y3^2*AR2*H[58] , ' DIFF (H2 , Yl ) *D [7 ] ,X) , 

X : RATSUBST (F[ 57 ]+Y3*G[ 57 ] +Y3''2*AR2*H[57] , ' DIFF (Hi , Y2 ) *D [ 6 ] ,X) , 
X:RATSUBST(F[56]+Y3*G[56]+Y3"'2*AR2*H[56]  ,  ' DIFF (H2 , Yl ) *D [ 6 ] ,X) , 

X : RATSUBST (F [54] +Y3*G[ 54] +Y3''2*AR2*H [54] , 'DIFF (Hi, Y2 ) *D[7] ,X) , 

X : RATSUBST (F[ 60] +Y3*G[ 60] +Y3''2*AR2*H[ 60] , 'DIFF(Hl, Y3) * 'DIFF (H2 , Y3 ) *D [5 ] , X) , 
X: RATSUBST (F [28 ]+Y3*G [28 ]+Y3''2*AR2*H[28] , ' DIFF (H2 , Y3 ) * ' DIFF (HI , Y2 ) *D [4] ,X) , 
X:RATSUBST(F[27]+Y3*G[27]+Y3''2*AR2*H[27] , ' DIFF (Hi , Y3 ) * ' DIFF (H2 , Yl) *D [3 ] ,X) , 
X: RATSUBST (F [25 ]+Y3*G [25 ]+Y3^2*AR2*H[25]  ,  ' DIFF (H2 , Yl ) * ' DIFF (HI , Y2 ) *D [4 ] ,X)  , 
X:RATSUBST(F[24]+Y3*G[24]+Y3-'2*AR2*H[24] , ' DIFF (H2 , Yl ) * ' DIFF (HI , Y2 ) *D [3 ] ,X) , 
X : RATSUBST (F [16] +Y3*G [16] +Y3^2*AR2*H[ 16] , 'DIFF (H2 , Y3) * ' DIFF (H2 , Yl) *D[4] ,X) , 
X: RATSUBST (F [ 8 ] +Y3  *G [ 8 ] +Y3^2 *AR2 *H [ 8 ] ,  ' DIFF (HI , Y2 ) * ' DIFF (Hi , Y3 ) *D [3 ]  ,X) , 

X :  RATSUBST  (F  [  14  ]+Y3*G[  14] +Y3''2*AR2*H[  14]  ,  '  DIFF  (H2  ,  Y3  ) ''2  *D  [4  ]  ,X)  , 
X:RATSUBST(F[13]+Y3*G[13]+Y3"2*AR2*H[13]  ,  ' DIFF (H2 , Yl ) "2*D [ 3 ]  ,X)  , 
X:RATSUBST(F[12]+Y3*G[12]+Y3''2*AR2*H[12]  ,  '  DIFF  (H2  ,  Yl ) ''2*D  [  4  ]  ,X)  , 

X:  RATSUBST  (F  [6]  +Y3  *G [ 6 ]  +Y3''2*AR2*H [6]  ,  'DIFF  (HI ,  Y3  )  ''2 *D  [3  ]  ,X)  , 

X: RATSUBST (F [5 ] +Y3  *G [5] +Y3''2*AR2*H[5] ,  ' DIFF (HI , Y2 ) ^2 *D [ 4 ]  , X)  , 

X: RATSUBST  (F  [4]  +Y3*G  [4]  +Y3''2*AR2*H[4]  ,  '  DIFF  (HI ,  Y2  )  ''2*D  [3  ]  ,  X)  , 

X: RATSUBST (F [46] +Y3  *G [46] +Y3''2*AR2*H[46] ,  ' DIFF (H2 , Y3 ) *D [5] , X)  , 

X: RATSUBST (F [ 45 ] +Y3 *G [45 ] +Y3''2*AR2*H[45] , 'DIFF (Hi, Y3 ) *D[5] ,X) , 

X:  RATSUBST  (F  [44]  +Y3 *G  [ 44 ]  +Y3''2 *AR2 *H [ 44 ]  ,  '  DIFF  (H2  ,  Yl)  *D  [3  ]  ,X)  , 

X: RATSUBST (F [43 ] +Y3*G [43 ] +Y3''2*AR2*H[43] , ' DIFF (HI , Y2 ) *D [4] , X) , 

X : RATSUBST (F [42] +Y3*G[42] +Y3''2*AR2*H[42] , 'DIFF (H2 , Y3) *D[4] ,X) , 

X: RATSUBST (F [40] +Y3*G [40] +Y3^2*AR2*H[40] , ' DIFF (H2 , Yl) *D [4] , X) , 
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X:RATSUBST(F[36]+Y3*G[36]+Y3''2*AR2*H[36] , ' DIFF (H2 , Y1 ) *D [ 5 ] ,X) , 
X:RATSUBST(F[34]+Y3*G[34]+Y3''2*AR2*H[34] , ’ DIFF (HI , Y3 ) *D [3 ] ,X) , 
X:RATSUBST(F[33]+Y3*G[33]+Y3''2*AR2*H[33] , ' DIFF (HI , Y2 ) *D [ 3 ] ,X) , 
X:RATSUBST(F[29]+Y3*G[29]+Y3^2*AR2*H[29] , ' DIFF (HI , Y2 ) *D [ 5 ] ,X) , 
X:RATSUBST(F[3]+Y3*G[3]+Y3^2*AR2*H[3] ,1*D[3] ,X) , 
X:RATSUBST(F[21]+Y3*G[21]+Y3^2*AR2*H[21] ,1*D[5] ,X) , 
X:RATSUBST(F[11]+Y3*G[11]+Y3''2*AR2*H[11]  ,1*D[4]  ,X)  , 

X:RATSUBST(F[52]+Y3*G[52]+Y3^2*AR2*H(52] ,  ' DIFF (Hi ,  Y3 )*' DIFF (H2 , Y3 ) *D [ 1 ] ,X) , 
X:RATSUBST(F[51]+Y3*G[51]+Y3''2*AR2*H[51] , ' DIFF (HI , Y3 ) * ' DIFF (H2 , Y3 ) *D [2 ] , X) , 
X:RATSUBST(F[39]+Y3*G[39]+Y3^2*AR2*H[39] , ' DIFF (H2 , Y3 ) ^2 *D [2 ] ,X) , 
X:RATSUBST(F[32]+Y3*G[32]+Y3''2*AR2*H[32] , ' DIFF (HI , Y3 ) ^2*D [ 1 ] ,X) , 
X:RATSUBST(F[23] +Y3*G[23] +Y3''2*AR2*H[23] , 'DIFF(H2, Y3) *D[1] ,X) , 
X:RATSUBST(F[22] +Y3*G[22] +Y3''2*AR2*H[22] , 'DIFF (HI , Y3 ) *D [2 ] , X) , 
X:RATSUBST(F[20] +Y3*G[20] +Y3''2*AR2*H[20] , 'DIFF(H1, Y2) *D[2] ,X) , 
X:RATSUBST(F[19]+Y3*G[19]+Y3''2*AR2*H[19] , ' DIFF (H2 , Y1 ) *D [ 1 ] ,X) , 
X:RATSUBST(F[10]+Y3*G[10]+Y3''2*AR2*H[10] , ' DIFF (H2 , Y1 ) *D [ 2 ] ,X) , 
X:RATSUBST(F[9]+Y3*G[9]+Y3^2*AR2*H[9] , 'DIFF(H2,Y3) *D[2] ,X) , 

X:RATSUBST (F[l] +Y3*G[1] +Y3^2*AR2*H[1] , 'DIFF(H1, Y2) *D[1] ,X) , 
X:RATSUBST(F[2]+Y3*G[2]+Y3''2*AR2*H[2] , ■DIFF(H1,Y3) *D[1] ,X) , 
X:RATSUBST(F[17]+Y3*G[17]+Y3''2*AR2*H[17] ,1*D[2] ,X) , 
X:RATSUBST(F[18]+Y3*G[18]+Y3''2*AR2*H[18] ,1*D[1] ,X) , 

X:RATSUBST(F[15] +Y3*G[15]+Y3"'2*AR2*H[15]  ,  '  DIFF  (H2 ,  Y3  )  ^^2  ,  X)  , 
X:RATSUBST(F[7]+Y3*G[7]+Y3''2*AR2*H[7] , ' DIFF (HI , Y3 ) ^2 , X) , 

X:RATSUBST(F[26] +Y3*G[26] +Y3''2*AR2*H[26] , ' DIFF (HI , Y3 ) * ' DIFF (H2 , Y3 ) ,X) ) ) ; 


/* . */ 

/*  THE  MACRO  PICK(XXX)::=  TAKES  ANY  EXPRESSION  XXX  (PREVIOUSLY  EXPANDED)*/ 
/*  AND  SEPARATES  IT  INTO  SINGLE  EXPRESSIONS  LABELED  Ed).  IT  THEN  CALLS*/ 
/*  MACRO  HRSUB(X)  TO  FIND  THE  APPROPIATE  LAME'  PARAMETERS  APPROXIMATION  */ 
/*  FOR  EACH  EXPRESSION  AND  THEN  SUMS  ALL  THE  EXPRESSIONS  TO  YIELD  THE  */ 
/*  EXPRESSION  XXX  WITH  ALL  THE  TERMS  FULLY  APPROXIMATED.  */ 

/* . */ 

E(I) :=CONCAT(E, I) ; 

PICK(XXX) : :=BUILDQ( [XXX] , ( II ; LINENUM, NT : NTERMS (XXX) ,I2:I1+NT-1, 

PRINT ("  THIS  EXPRESSION  HAS  ",NT,"  TERMS  TO  BE  RESOLVED  "), 


PICKAPART(XXX, 1) ,FOR  K:I1  THRU  12  DO  EXH [K] : EV (E (K) , EVAL) , 
FOR  K:I1  THRU  I2  DO  HRSUB (EXH [K] ) , XXX: SUM (EXH [K] , K , II , 12 ) , 
DISPLAY (XXX) ) ) ; 


/* . */ 

/*  USE  THE  MACRO  PICK (XXX)  TO  APPROXIMATE  LAME'  PARAMETER  FUNCTIONS  OF  */ 

/*  THE  STRAIN  COMPONENTS.  */ 

/* . */ 

ERR4 : ER [ 4 ] ; 

ERR5 : ER [ 5 ] ; 

PICK(ERR4) ; 
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PICK (ERRS) ; 

ER[4] :ERR4; 

ER[5] :ERR5; 

ERRl : ER [ 1 ] ; 

ERR2 : ER [ 2 ] ; 

ERR6 : ER [ 6 ] ; 

PICK (ERRl) ; 

PICK(ERR2) ; 

PICK(ERR6) ; 

ER[1] :ERR1; 

ER [ 2 ] : ERR2 ; 

ER [ 6 ] : ERR6 ; 

SAVE ( " SPH-ER . SV" , ER) ; 


/* . */ 

/*  THE  MACRO,  CHIFORM (XX, YY , K) : : =  EXPANDS  A  6x1  VECTOR  CALLED  XX,  THEN  */ 
/*  DETERMINES  AND  DISPLAYS  THE  COEFFICIENTS  OF  Y3  UPTO  THE  Ktll  POWER.  */ 
/*  THESE  ARE  CALLED  YY[I,K].  */ 
/* . */ 


CHIFORM(XX, YY,K) : :=BUILDQ( [XX,YY,K] , (FOR  I  THRU  6  DO  FOR  JJ  THRU  K+1  DO 
(XY[I] :FACTOROUT(EXPAND(RAT(XX[I] ) ) , [H1,H2] ) , 

YY[I, JJ-1] :COEFF(XY[I] ,Y3, JJ-1) , DISPLAY (YY [ I , JJ-1 ] )))); 

POWERDISP:TRUE; 

CHIFORM (ER,XR, 12) ; 

KILL(ER) ; 

SAVE ( " SPH-XR. SV" , XR)  ; 

CLOSEFILE ( ) ; 

QUIT ( ) 
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F.IO  PLASINIT.MAC  Input  Deck 


The  MACSYMA  input  deck,  PLASINIT.MAC,  generates  the  (L. )  column  arrays 

and  the  [H-  ]  matrices  for  each  incremental  strain  component,  e. . 

‘i>  J 


WRITEFILE( "SPH-INIT.WF" ) ; 


/*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS  */ 

/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 

/*  PhD  PROGRAM  IN  AERONAUTICAL  ENGINEERING  -  MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 

/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 

/*  */ 
/*  PROGRAM  PLASINIT.MAC:  FOR  A  SPHERICAL  SHELL.  CREATES  THE  LHMAT,  */ 

/*  LSMAT,  HMAT,  &  SSMAT  ARRAYS.  */ 


/************************************************************************/ 

/************************************************************************/ 

/*************************************************************************/ 
/*  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

/***********★*************************************************************/ 
[DYNAMALLOC : TRUE , DISKGC : TRUE, DERIVABBREV: TRUE, POWERDISP : TRUE] $ 

/**************★********★***★**********★************************★**********/ 
/*  THE  MACRO  DECOMPOSE (XR) :: =  DETERMINES  AND  DISPLAYS  THE  COEFFICIENTS  OF  * / 
/*  DISPLACEMENT  VARIABLES  DQ(1)  THROUGH  DQ(18)  AND  CREATES  A  6x13x18  */ 

/*  ARRAY  CALLED  LMAT  OF  THE  CONTANT  COEFFICIENTS  OF  LINEAR  DISPLACEMENT  */ 
/*  TERMS,  AND  A  6x13x18x18  ARRAY  CALLED  HMAT  OF  THE  CONSTANT  COEFFICIENTS  */ 
/*  OF  THE  CONSTANT  COEFFICIENTS  OF  THE  QUADRATIC  DISPLACEMENT  TERMS.  */ 

/**************************************************************************/ 
LOADFILE ( " SPH-XRNEW. SV" ) ; 

FOR  I  THRU  6  DO  FOR  JJ  THRU  13  DO  (DISPLAY  (XR [ I , JJ-1] ) ) $ 

DECOMPOSE (XR) : : =BUILDQ ( [XR] , 

(FOR  I  THRU  6  DO  ( PRINT ( "DECOMPOSING  STRAIN  COMPONENT",!), 

(FOR  J:0  THRU  12  DO  (FOR  K  THRU  18  DO 
(IF  HIPOW(XR[I, J] ,DQ(K) )=2  THEN 

XQUAD[I, J,K] :RATCOEFF(XR[I, J] ,DQ(K) ,2) *DQ(K) * 2 +RATCOEFF ( XR [ I , J ] ,DQ(K) , 

1 )  ELSE  XQUAD [ I , J , K] : RATCOEFF (XR [ I , J] , DQ (K) , 1 ) , 

FOR  L  THRU  18  DO  HMAT [ I , J , K , L] : RATCOEFF (XQUAD [ I , J , K] , DQ (L) , 1 ) , 

LMAT[I, J,K] : EXPAND (XQUAD [ I, J,K] -SUM (HMAT [ I , J , K, L] *DQ(L) ,L,1,18))))))))$ 
DECOMPOSE (XR) ; 
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KILL(XR) $ 


SAVE( "SPH-LHMAT.SV" ,LMAT,HMAT) ; 


/************************************************************************/ 
/*  GENERATE  ELEMENT-INDEPENDENT  STRAIN  DEFINITION  ARRAYS  LX  AN  HXX  FOR  */ 
/*  IN-PLANE  STRAINS  AND  SX  AND  SSXX  FOR  TRANSVERSE  SHEAR  STRAINS.  X  AND*/ 
/*  XX  REPRESENT  THE  POWER  OF  Y3  FOR  WHICH  THE  COEFFICIENTS  APPLY.  NOTE  */ 
/*  LX  HAS  3  COLUMNS.  COLUMN  1  CONTAINS  COEFFICIENTS  OF  THE  EPSILONll  */ 
/*  TERMS  WHICH  ARE  LINEAR  IN  DISPLACEMENTS  Q(l)-Q(18).  COLUMN  2  */ 

/*  CONTAINS  EPSILON22  TERMS  AND  COLUMN  3  CONTAINS  EPSILON12  TERMS.  */ 

/*  LIKEWISE  HXX  HAS  3  PARTITIONS.  COLUMNS  1-18  CONTAINSS  COEFFICIENTS  */ 
/*  OF  EPSILONll  TERMS  WHICH  ARE  QUADRATIC  IN  DISPLACEMENT.  COLUMNS  19-  */ 
/*  36  CONTAIN  THE  EPSILON22  TERMS  AND  COLUMNS  37-54  CONTAIN  THE  */ 

/*  EPSILON12  TERMS.  SIMILARLY,  SX  CONTAINS  2  COLUMNS  PERTAINING  TO  THE  */ 
/*  COEFFICIENTS  OF  LINEAR  TERMS  OF  EPSILON23  AND  EPSILON133,  */ 

/*  RESPECTIVELY.  SSXX  HAS  2  PARTITIONS.  COLUMNS  1-18  CONTAIN  */ 

/*  COEFFICIENTS  OF  THE  QUADRATIC  TERMS  OF  EPSILON23  AND  COLUMNS  19-36  */ 

/*  CONTAIN  THE  QUADRATIC  TERMS  OF  EPSILON13 .  */ 


/************************************************************************/ 
FOR  NN  THRU  18  DO  { 

LO [NN, 1] :LMAT[1, 0,NN] , LO [NN,2] : LMAT [2 , 0 ,NN] , LO (NN, 3 ] : LMAT [ 6 , 0 , NN] , 

L1[NN, 1] :LMAT[1, 1,NN] ,L1[NN,2] : LMAT [2 , 1 , NN] , LI [NN,3] : LMAT [ 6 , 1 , NN] , 

L2 [NN, 1] :LMAT[1,2,NN] , L2 [NN,2] : LMAT [2 , 2 , NN] , L2 [NN,3] :LMAT [ 6 , 2 , NN] , 

L3[NN,1] :LMAT[1,3,NN] ,L3[NN,2] :LMAT [2 , 3 , NN] ,L3[NN,3] : LMAT [ 6 , 3 , NN] , 

L4[NN,1] :LMAT[1, 4,NN] ,L4[NN,2] ; LMAT [2 , 4 , NN] ,L4[NN,3] : LMAT [ 6 , 4 , NN] , 

L5 [NN, 1] :LMAT[1, 5,NN] , L5 [NN,2] : LMAT [2 , 5 , NN] ,L5[NN, 3] : LMAT [ 6 , 5 , NN] , 

L6 [NN, 1] :LMAT[1, 6 , NN] , L6 [NN, 2 ] : LMAT [2 , 6 , NN] ,L6 [NN, 3] :LMAT[6, 6,NN] , 

L7 [NN, 1] :LMAT(1, 7,NN] , L7 [NN,2] : LMAT [2 , 7 ,NN] , L7 [NN,3] : LMAT [ 6 , 7 , NN] , 

SO [NN, 1]  : LMAT [4, 0,NN]  , SO [NN, 2]  : LMAT [5 , 0 , NN]  , 

SI [NN, 1]  : LMAT [4, 1,NN] , SI [NN,2]  :LMAT[5, 1,NN]  , 

S2 [NN, 1] :LMAT[4, 2 ,NN] , S2 [NN, 2] : LMAT [5 , 2 , NN] , 

S3 [NN, 1] :LMAT[4, 3 ,NN] , S3 [NN, 2] : LMAT [5 , 3 , NN] , 

S4 [NN, 1] :LMAT[4, 4,NN] , S4 [NN, 2] : LMAT [5 , 4 , NN] , 

S5 [NN, 1] :LMAT[4, 5,NN] , S5 [NN,2] : LMAT [5 , 5 , NN] , 

S6 [NN, 1] : LMAT [4, 6,NN] ,S6 [NN,2] : LMAT [5 , 6 , NN] , 

S7 [NN, 1]  ;LMAT[4, 7,NN]  , S7 [NN, 2]  :LMAT [5 , 7 , NN]  , 

FOR  MM  THRU  18  DO  ( 

HO [NN,MM] :HMAT[1, 0,NN,MM] , HO [NN,MM+18] :HMAT [2 , 0 , NN, MM] , 

H0[NN,MM+36] : HMAT [ 6 , 0 , NN, MM] , 

H1[NN,MM] :HMAT(1, 1,NN,MM] , HI [NN, MM+18 ] : HMAT [ 2 , 1 , NN , MM] , 

Hl[NN,MM+36] : HMAT [ 6 , 1 , NN,MM] , 

H2 [NN,MM] :HMAT [1, 2 ,NN,MM] , H2 [NN, MM+18] : HMAT [ 2 , 2 , NN, MM] , 

H2 [NN,MM+36] : HMAT [ 6 , 2 , NN, MM] , 

H3 [NN,MM] :HMAT[1,3,NN,MM] , H3 [NN, MM+18 ] :HMAT [2 , 3 , NN, MM] , 

H3 [NN,MM+3  6]  : HMAT [ 6 , 3 , NN, MM]  , 


F-60 


H4[NN,MM] :HMAT[1, 4,NN,MM] , H4 [NN,MM+18] :HMAT [2 , 4 , NN, MM] , 

H4 [NN,MM+36] : HMAT [ 6 , 4 , NN, MM] , 

H5 [NN,MM] :HMAT[1, 5,NN,MM] , H5 [NN,MM+18] :HMAT [2 , 5 , NN, MM] , 

H5[NN,MM+36] : HMAT [ 6 , 5 , NN, MM] , 

H6 [NN,MM] :HMAT[1, 6,NN,MM] , H6 [NN,MM+18] :HMAT [2 , 6 , NN,MM] , 

H6 [NN,MM+36] :HMAT[6,6,NN,MM] , 

H7 [NN,MM] :HMAT[1,7,NN,MM] , H7 [NN,MM+18] :HMAT [ 2 , 7 , NN, MM] , 

H7 [NN,MM+36] : HMAT [ 6 , 7 , NN, MM] , 

H8 [NN,MM] :HMAT[1, 8,NN,MM] ,H8 [NN,MM+18] :HMAT [2 , 8 , NN, MM] , 

H8 [NN,MM+36] : HMAT [ 6 , 8 ,NN, MM] , 

H9[NN,MM] :HMAT[1, 9,NN,MM] ,H9 [NN,MM+18] ;HMAT [ 2 , 9 , NN, MM] , 

H9 [NN,MM+36] : HMAT [ 6 , 9 , NN, MM] , 

HIO [NN,MM] :HMAT[1, 10,NN,MM] ,H10 [NN,MM+18] :HMAT[2 , 10,NN,MM] , 

HlO [NN,MM+36] : HMAT [ 6 , 10 , NN, MM] , 

Hll [NN,MM] :HMAT[1, 11,NN,MM] , Hll [NN, MM+18 ] : HMAT [ 2 , 11 , NN, MM] , 

Hll [NN,MM+36] : HMAT [ 6 , 11 , NN, MM] , 

H12 [NN,MM] ;HMAT[1, 12,NN,MM] ,H12 [NN, MM+18] :HMAT [ 2 , 12 , NN, MM] , 

H12 [NN,MM+36] : HMAT [ 6 , 12 , NN, MM] , 

SSO [NN,MM] :HMAT[4, 0,NN,MM] , SSO [NN, MM+18] ; HMAT [5, 0,NN,MM] , 

SSI [NN,MM] :HMAT[4, 1,NN,MM] , SSI [NN, MM+18] : HMAT [ 5 , 1 , NN, MM] , 

SS2 [NN,MM] :HMAT[4, 2 ,NN,MM] , SS2 [NN, MM+18] : HMAT [ 5 , 2 , NN, MM] , 

SS3[NN,MM] :HMAT[4, 3,NN,MM] , SS3 [NN, MM+18 ] ; HMAT [5 , 3 , NN, MM] , 

SS4[NN,MM] :HMAT[4, 4,NN,MM] , SS4 [NN, MM+18] : HMAT [ 5 , 4 , NN,MM] , 

SS5 [NN,MM] :HMAT[4, 5,NN,MM] , SS5 [NN, MM+18] : HMAT [ 5 , 5 , NN,MM] , 

SS6 [NN,MM] :HMAT[4, 6,NN,MM] ,SS6 [NN, MM+18] :HMAT [ 5 , 6 , NN, MM] , 

SS7 [NN,MM] :HMAT[4,7,NN,MM] , SS7 [NN, MM+18] : HMAT [ 5 , 7 , NN,MM] , 

SS8 [NN,MM] : HMAT [4, 8,NN,MM] , SS8 [NN, MM+18] : HMAT [5, 8,NN,MM] , 

SS9 [NN,MM] ; HMAT [4, 9,NN,MM] , SS9 [NN, MM+18 ] ;HMAT[5, 9,NN,MM] , 

SS10[NN,MM] : HMAT [4, 10, NN, MM] , SSIO [NN, MM+18 ] : HMAT [ 5 , 10 , NN, MM] , 

SSll [NN,MM] : HMAT [4, 11,NN,MM] , SSll [NN, MM+18] : HMAT [ 5 , 11 , NN , MM] , 

SS12 [NN,MM] :HMAT[4, 12 ,NN,MM] , SS12 [NN,KM+18] :HMAT[5, 12,NN,MM] ) ) $ 

/************************************************************************/ 
/*  FORM  MACSYMA  MATRICES  FROM  THE  ABOVE  DEFINED  ARRAYS.  */ 

/************************************************************************/ 
L0:GENMATRIX(L0,18,3)  ; 

L1:GENMATRIX(L1, 18,3)  ; 

L2 : GENMATRIX (L2 ,18,3); 

L3:GENMATRIX(L3,18,3)  ; 

L4 : GENMATRIX ( L4 , 18,3); 

L5:GENMATRIX(L5,18,3)  ; 

L6 : GENMATRIX (L6, 18,3); 

L7 : GENMATRIX ( L7 ,18,3); 

SO : GENMATRIX (SO, 18,2); 

SI: GENMATRIX (SI, 18, 2)  ; 

S2 : GENMATRIX (S2 ,18,2); 
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S3:GENMATRIX(S3,18,2)  ; 

S4 : GENMATRIX (34,18,2); 

35 : GENMATRIX (35,18,2); 

36 : GENMATRIX (36,18,2); 

37 : GENMATRIX (37,18,2); 

H0:GENMATRIX(H0,18,54); 

H1:GENMATRIX(H1, 18, 54)  ; 

H2:GENMATRIX(H2,18,54)  ; 

H3 : GENMATRIX (H3 ,18,54); 

H4: GENMATRIX (H4, 18,54)  ; 

H5 : GENMATRIX (H5 ,18,54); 

H6:GENMATRIX(H6,18,54)  ; 

H7:GENMATRIX(H7,18,54)  ; 

H8 : GENMATRIX (H8, 18,54)  ; 

H9 : GENMATRIX (H9, 18, 54)  ; 

H10:GENMATRIX(H10,18,54)  ; 

Hll : GENMATRIX (HI 1, 18,54)  ; 

H12 : GENMATRIX (H12 ,18,54); 

SS0:GENMATRIX(330,18,36) ; 

331;GENMATRIX(331,18,36)  ; 

332 : GENMATRIX (332, 18, 36) ; 

333 : GENMATRIX (333, 18,36) ; 

334: GENMATRIX (334, 18,36)  ; 

335:GENMATRIX(335, 18,36)  ; 

336:GENMATRIX(336,18,36)  ; 

337 : GENMATRIX (337, 18, 36)  ; 

338:GENMATRIX(338,18,36)  ; 

339 : GENMATRIX (339,18,36); 

3310:GENMATRIX(3310,18,36)  ; 

3311:GENMATRIX(3311,18,36) ; 

S312:GENMATRIX(SS12,18,36) ; 

SAVE ( " SPH-LSMAT . SV" , LO , LI , L2 , L3 , L4 , L5 , L6  ,  L7 , SO  ,  31 , 32  ,  S3 , 34 , 35 , 36 , 37 )  ; 

SAVE( "SPH-HMAT.SV" , HO , HI , H2 , H3 , H4 , H5 , H6 , H7 , H8 , H9 , HIO , Hll , H12 ) ; 

SAVE ( " SPH-SSMAT . SV , 330 , SSI , 332 , 333 , 334 , 335 , 336 , 337 , 338 , 339 , 3310 , 3311 , 3312 ) 

KILL (ALL) $ 

CLOSEFILE ( ) ; 

QUIT ( ) ; 
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Appendix  G.  The  Elasto-Plastic  Algorithm 


In  order  to  conduct  an  incremental  elastic-plastic  analysis  from  a  total  Lagrangian 
finite  element  formulation,  a  predictor-corrector  model  is  incorporated.  Each  Gauss  point 
is  checked  to  see  if  yielding  is  occuring  or  has  occurred.  If  yielding  has  occurred  previ¬ 
ously,  then  the  gauss  point  is  checked  to  determine  if  unloading  or  loading  is  occuring.  For 
those  gauss  points  that  yielded  or  are  still  loading,  they  are  analyzed  from  an  elastic-plas¬ 
tic  approach.  This  is  done  by  first  incrementing  the  strain  elastically  and  then  correcting 
for  the  plastic  contribution.  All  other  gauss  points  are  analyzed  elastically.  The  algorithm 
is  explained  below  (refer  to  Figures  G.1-G.3): 


1.  Read  in  the  input  file  deck  parameters.  These  determine  the  type  of  analysis,  the 
finite  element  mesh,  shell  geometry,  boundary  conditions,  load  versus  displace¬ 
ment  incremental  approach,  material  properties,  and  whether  strain-hardening  is 
included. 

2.  Calculate  the  elastic  constitutive  matrix  for  the  in-plane,  [Df],  and  the  transverse 
shear,  [D^.].  Then  calculate  the  higher  order  elasticity  arrays,  [Af]  -  [Tf]  and  [A^]  - 
[rj,  based  upon  Eq  (4.87). 


3.  Initialize  the  global  displacement  vector  arrays  for  increment  n,  {djQj)^,  n  -1,  and 
[djoT^n-l  the  incremental  global  displacement  vector  for  increment  n, 

4.  Initialize  the  global  stress  matrix  array,  [Ojqj\,  and  the  global  effective  plastic 
strain  vector,  { 


5.  Initialize  the  global  stiffness  array,  [Kj]  shown  below 


m  r  s 

III 

n=\i=\j=\ 


t) 


\AdA^ 


(G.l) 
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RESIDU: 

Calculate  Residual  Forces  (If  Specified)  from 
Converged  Solution 


Continue  on  Next 
Displacement  Increment 
Until  Complete 


STRESS: 

Calculate  Current  Global  Stress  State 

For  Every  Gauss  Point,  Thru  the  Layer, 
in  each  Element 


Figure  G.  1  Master  Flow  Chart  of  Elasto-Plastic  Algorithm 


Figure  G.2  Flow  Chart  of  the  STIFF  Subroutine  for  the  Elasto-Plastic  Algorithm,  Part  1 


Go  to  ASSEM 


Figure  G.3  Flow  Chart  of  the  STIFF  Subroutine  for  the  Elasto-Plastic  Algorithm,  Part  2 


(the  left-hand  side  of  Eq  (4.133)  with  Eq  (4.136)  included),  the  global  equilibrium 
array,  [K^quul 

m  r  s 

«  =  1 1  =  I;  =  1 

(the  right-hand  side  of  Eq  (4.133)  with  Eq  (4.136)),  and  the  global  force  vector, 
{R). 


6.  Initialize  the  Gauss  point  counter,  KGAUS. 
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7.  Begin  looping  over  the  elements: 


a.  Calculate  the  elemental  displacement  gradient  vector,  [d],  from  the  global  dis¬ 
placement  vector  and  the  incremental  elemental  displacement  gradi¬ 

ent  vector,  {A^},  from  the  global  incremental  displacement  vector 

b.  Begin  looping  over  the  Gauss  points  in  the  ^  direction: 

1.)  Begin  looping  over  the  Gauss  points  in  the  r\  direction: 


a.)  Calculate  the  interpolation  functions  for  the  matrix  [£)(^,  T|)]  (see  Eq 
(4.129)). 


b.)  Calculate  the  elemental  continuum  displacement  vector,  {d(^,  rj)},  (see 
Eq  (4.129)) 

id(^,r\)}  =  [/)(^,T1)]  {?}  .  (4.129) 


c.)  Calculate  the  incremental  elemental  continuum  displacement  vector, 
{AJ(^,Ti)},(see  Eq  (4.137)) 

{Ad(^,r[)}  =  [t)(^,r\)]  {Aq}  .  (4.137) 


d.)  Increment  over  the  layers  of  the  shell  (refer  to  Figure  4.8) 


(1).KGAUS  =  KGAUS+  1 


(2). Calculate  the  incremental  Lagrangian  strains,  {Ae},  based  on  {Arf} 
in  Step  7.b.l).c).  These  strains  are  transformed  into  Eulerian 
strains,  {Ae}. 


(3). Calculate  the  yield  surface  for  the  Guass  point  at  the  present  layer. 


(4) .  Calculate  the  incremental  Eulerian  stress  array,  {Aa},  using  [D] 
and  {Ae}. 

(5) . Update  the  temporary  stress  array,  {a},  with  the  global  stress  array. 
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[Gt’ot’]’  the  incremental  stress  array,  {Ag}. 


(6). Calculate  the  effective  stress,  o,  using  {g}  for  the  Gauss  point. 


(7).  Check  to  see  if  the  Gauss  point  has  yielded  in  the  previous  iteration. 
If  it  has,  go  to  Step  7.b.l).d).(9).  Otherwise,  go  to  Step  7.b.l).d).(8). 


(8).  If  the  Gauss  point  is  previously  elastic,  check  to  see  if  it  has  yielded 
in  this  iteration.  If  it  has  not  yielded,  then  go  to  Step  7.b.l).d).(19). 
For  a  Gauss  point  which  yields  during  the  iteration  calculate 


R  = 


—  r 

Gg  ~  (5  Y 

—  r  —r-  1 
Ge-G 


(G.3) 


(9).  Check  to  see  if  a  previously  yielded  gauss  point  is  unloading.  If  it  is 
unloading,  go  to  Step  7.b.l).d).(19).  Otherwise,  set  /?  =  1  and  go  to 
Step7.b.l).d).(10). 


(lO).Evaluate  the  number  of  steps  into  which  the  excess  stress,  is 
to  be  divided  according  to 


f 


M  =  8 


V 


(G.4) 


and 


(11) .Calculate(l  -  I?). 

(12) .Compute 


^TOT 


+  (l-R)  {Ag} 


{Ag} 


R{Ao} 

M 


(G.5) 


(G.6) 


(13).Loop  over  the  stress  reduction  step. 
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[a] . Calculate  the  effective  stress,  a,  using  for  the  Gauss- 

point. 

[b] . Calculate  the  plasticity  flow  vector,  {a}  =  {{dF)/(d(Jij)},  the 
combined  plasticity  flow  vector,  =  [D^{a},  and  the  work¬ 
hardening  parameter,  H’,  (if  required)  for  the  Gauss  point. 

[c] .  Compute  dX  according  to 

{a}'^{d^}  {Ae} 

dX  =  - f -  (3.111) 


[d]. Compute  according  to 


tot\  (  tot\  ..  rA 

J  =  J+ (1-/?)  {Ao} + 


dX{dj^} 


M 


M 


(G.7) 


[e].  Compute  the  effective  plastic  strain  according  to 

^  T[  TOT] 

-r  -r—\  dK\a}  I  tJ  I 

{8^}  =  {8^  }  + - 17-^—^  • 

a 


(G.8) 


[f].  Return  to  Step  7.b.l).d).(13). 


(14) . Compute  the  effective  stress,  a,  using  the  new  for  the 

Gauss  point. 

(15) .Evaluate  the  current  yield  surface. 

(16) .Factor  to  ensure  they  lie  on  the  yield  surface,  according  to 
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(G.9) 


-r^ 

(Sy+fi'Zp 

-r 
(5 

and  store  in  the  global  stress  array,  [Cj-qj]. 


(17). Store  the  effective  stress,  a,  in  the  global  effective  stress  array, 
[Ot'ot’].  For  elastic-plastic  gauss  points,  go  to  Step  7.b.l).d).(20). 


(18). For  elastic  Gauss  points,  compute  the  updated  global  stress  array, 
[GtotI^  according  to 

r-  1 

-I-  {Ag}  ,  (G.IO) 

where  r  is  the  current  iteration. 


n  r 


G 


TOTi 


'TOT\ 


(19) . Load  the  effective  stress,  o,  into  the  global  effective  stress  arrray. 
For  elastic  Gauss  points,  go  to  Step  7.b.l).d).(23). 

(20) . Reload  the  stress  array,  {a},  with  the  corrected  stresses  from  the 
global  stress  array,  [Oj-oj-]. 


(21). Calculate  the  effective  stress,  a,  using  {a}  for  the  Gauss  point. 


(22). Calculate  the  plasticity  flow  vector,  {a}  =  {(d F)/{dOij)},  the  com¬ 
bined  plasticity  flow  vector,  {di)}  =  [Df]{a},  and  the  work- harden¬ 
ing  parameter,  H’,  (if  required)  for  the  Gauss  point. 


(23). Calculate  the  in-plane  constitutive  matrix,  according  to 


{dn) 

f 

fi'  +  {djy}  {a} 


(4.10a) 


for  the  Gauss  point.  It  should  be  noted  that  for  elastic  gauss  points, 
the  plastic  flow  vector,  {a},  the  combined  plasticity  flow  vector. 
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{dj^],  and  the  work-hardening  parameter,  H\  become  zero. 

(24).Load  the  constitutive  matrix,  into  the  constitutive  array  [Q] 

for  this  layer. 


(25). Return  to  Step  7.b.l).d). 

e.)  Calculate  the  transformed  constitutive  array,  [  Q  ]  *,  according  to 


* 


[G] 


1  r, 


1 


[G] 


(G.ll) 


f. )  Update  the  elasticity  arrays,  [Ay]  -  [7y]  and  [AJ  -  [FJ,  with  the  trans¬ 

formed  elastic -plastic  relations  for  the  layers  at  the  present  Gauss  posi- 
ton. 

g. )  Calculate  and  [(^2^^]  using  the  elasticity  arrays  defined 

in  Step  7.b.l).d).(26)  and  the  {d{%,  r))}  from  Step  7.b.l).b). 

h. )  Calculate  and  (except  for  first  iteration  of  first  incre¬ 

ment)  for  each  gauss  point. 

i. )  Update  the  and  (except  for  first  iteration  of  first  increment) 

for  the  element. 

j. )  Return  to  Step  7.b.l). 


2.)  Return  to  Step  7.b. 


c.  Assemble  the  global  [K-^\  and  •/'”]• 


d.  Return  to  Step  7. 


8.  Apply  prescribed  boundary  conditions. 

9.  Solve  Eq  (4.133). 


G-9 


10.  Load  global  displacement  vector  of  increment  n,  {d'^]TOT^  i^to  the  global  displace¬ 
ment  vector  of  increment  n-1,  {d^'^^}TOT  Update  {(P]tot  with  solution  of  Eq 
(4.33).  Calculate  the  incremental  global  displacement  vector  of  increment  n, 

11.  Check  for  convergence  based  upon  Eq  (4.137). 

a.  If  no  convergence  return  to  Step  6. 

b.  If  convergence  achieve,  continue  to  Step  12. 

12.  Reinitialize  KGAUS. 

13.  Begin  looping  over  the  elements: 

a.  Calculate  the  elemental  displacement  gradient  vector,  {d},  from  the  global  dis¬ 
placement  vector  {djQj},^,  and  the  incremental  elemental  displacement  gradi¬ 
ent  vector,  {A^},  from  the  global  incremental  displacement  vector  {Ad^Qj-}^. 

b.  Begin  looping  over  the  Gauss  points  in  the  ^  direction: 

1.)  Begin  looping  over  the  Gauss  points  in  the  T)  direction: 

a. )  Calculate  the  interpolation  functions  for  the  matrix  [£>  (^,  ri)]  (see  Eq 

(4.129)). 

b. )  Calculate  the  elemental  continuum  displacement  vector,  {d(^,  T])},  (see 

Eq  (4.129)) 

{d(§,1l)  }  =  [£>(§,  Tl)]  {?}  (4.129) 

c. )  Calculate  the  incremental  elemental  continuum  displacement  vector, 

{Ad{^,  ri)},  (see  Eq  (4.137)) 

{Ad(5,Ti)}  =  [£)(^,r|)]  {A?}  .  (4.137) 
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d.)  Increment  over  the  layers  of  the  shell  (refer  to  Figure  4.8) 


(1).KGAUS  =  KGAUS+  1 


(2). Calculate  the  plasticity  flow  vector,  {a}  =  {(3F)/(9ay)},  the  com¬ 
bined  plasticity  flow  vector,  =  [D^{a),  and  the  work-harden¬ 
ing  parameter,  H\  (if  required)  for  the  Gauss  point. 


(3).  Determine  if  the  Gauss  point  is  still  elastic  by  checking  if  {e^}  is 
zero. 


[a.]If  { e^}  is  zero,  go  to  Step  13.b.l).d).(7). 


[b].If  {e^}  is  not  zero,  go  Step  13.b.l).d).(4). 

(4).  Load  up  the  temporary  stress  array,  {c?},  from  the  global  stress 
array, 


(5). Calculate  the  effective  stress,  a,  using  {a}  for  the  Gauss  point. 


(6). Calculate  the  plasticity  flow  vector,  {a}  =  {(9F)/(5cty)}.  the  com¬ 
bined  plasticity  flow  vector,  {dj^]  =  [D^{a},  and  the  work-harden¬ 
ing  parameter,  H’,  (if  required)  for  the  Gauss  point. 


(7).  Calculate  the  in-plane  constitutive  matrix,  according  to 


{do}  {dj^} 

T 

{a} 


(4.10a) 


for  the  Gauss  point.  It  should  be  noted  that  for  elastic  gauss  points, 
the  plastic  flow  vector,  {a},  the  combined  plasticity  flow  vector, 
[dj)],  and  the  work-hardening  parameter,  H’,  become  zero. 
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(8). Load  the  constitutive  matrix,  into  the  constitutive  array  [<21 

for  this  layer. 


(9).  Return  to  Step  7.b.l).d). 

e.)  Calculate  the  transformed  constitutive  array,  [  (21*.  according  to 


VQ] 


* 


(G.ll) 


f. )  Update  the  elasticity  arrays,  [A^  -  [7^]  and  [A^]  -  [F^],  with  the  trans¬ 

formed  elastic-plastic  relations  for  the  layers  at  the  present  Gauss  posi- 
ton. 

g. )  Calculate  [k^P],  [A^i  ^P]  &  [N2^P]  using  the  elasticity  arrays  defined  in 

Step  7.b.l).d).(26)  and  the  {d{^,  T])}  from  Stepl3.b.l).b). 

h. )  Calculate  and  (except  for  first  iteration  of  first  incre¬ 

ment)  for  each  gauss  point. 

i. )  Update  the  and  (except  for  first  iteration  of  first  increment) 

for  the  element. 

j. )  Return  to  Step  13.b.l). 

2.)  Return  to  Step  13.b. 

c.  Assemble  the  global  [K-^]  and 

d.  Return  to  Step  13. 

14.  Calculate  the  required  residual  forces. 

15.  Output  the  elastic  and  plastic  stress  components. 
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16.  Check  to  see  if  maximum  number  of  increments  achieved. 


a.  NO:  Return  to  Step  5. 

b.  YES:  STOP. 

The  algorithm  and  theory  are  validated  by  comparing  against  known  solutions  pub¬ 
lished  in  the  literature  and  against  availiable  experimental  data.  Specifically,  the  plate 
problem  by  Owen  &  Hinton  [144:  Chapter  9],  the  isotropic  spherical  shell  by  Argyris  [8], 
the  pinched,  isotropic  cylinder  by  Simo  &  Kennedy  [205],  and  the  experimental  results  by 
Gould  [70]  on  a  Gr/PEEK  tensile  coupon  and  by  Hatfield  [76]  on  Gr/Ep  cylindrical  shells 
with  and  with  out  a  cutout. 
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